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Executive  Summary 

Current  maintenance  schedules  for  ground  vehicles  are  determined  largely  based  on 
reliability  predictions  of  a  population  of  vehicles  under  anticipated  operational  loads. 

This  approach  leads  to  unnecessary  maintenance  and,  in  some  cases,  in-field  failures 
depending  on  differences  in  the  usage  of  individual  vehicles.  Condition-based 
maintenance  is  scheduled  instead  according  to  the  condition  of  each  vehicle  to  reduce  the 
risk  of  failure  and  maintenance  costs.  However,  on-board  instrumentation  for  acquiring, 
processing,  and  storing  operational  data  is  expensive,  and  this  data  is  also  difficult  to 
analyze  due  to  variations  in  loading. 

A  diagnostic  speed  bump  for  diagnosing  mechanical  faults  in  ground  vehicle  wheel  ends 
and  suspensions  is  investigated  in  this  project.  The  speed  bump  excites  the  vehicle’s 
dynamic  response  through  an  impulse  delivered  to  the  vehicle’s  front  and  back  tires.  The 
response  of  the  instrumented  segment  of  the  diagnostic  sped  bump  is  then  recorded  while 
in  contact  with  the  vehicle’s  tires  using  accelerometers.  The  measured  dynamic  response 
is  compared  to  a  reference  response,  and  anomalies  that  correspond  to  vehicle  faults  are 
then  detected.  This  report  demonstrates  that  the  measured  response  spectrum  from  the 
instrumented  diagnostic  cleat  can  be  attributed  to  vehicle  chassis  modes  of  vibration  in 
the  frequency  range  below  10  Hz  and  natural  frequencies  in  the  free  dynamic  response  of 
the  cleat  above  10  Hz.  Tire  and  suspension  faults  are  simulated  in  a  high  mobility  multi¬ 
purpose  wheeled  vehicle  and  the  faults  are  detected.  Tire  faults  are  simulated  by 
decreasing  the  pressure  within  each  tire  below  the  manufacturer  recommended  level, 
whereas  suspension  faults  are  simulated  by  disconnecting  each  damper  to  mimic  the 
effects  of  broken  damper.  Using  a  reference-based  algorithm,  the  data  indicates  that  the 
faults  and  locations  of  the  faults  are  identified  with  90%  confidence  in  7  out  of  8  fault 
cases.  Errors  in  the  measurements  are  modeled  to  compensate  for  changes  in  vehicle 
speed.  It  is  also  demonstrated  that  a  reference-free  algorithm  can  be  utilized  to  detect 
these  faults  by  calculating  the  cross-correlation  between  measurement  channels  to 
identify  when  the  vehicle  is  “limping”  due  to  a  fault.  This  algorithm  demonstrates  much 
higher  levels  of  detection  approaching  99%. 

On  June  21  201 1,  a  summary  demonstration  documenting  the  products  of  this  research 
program  was  performed  at  U.S.  Anny  TARDEC  in  Warren,  MI.  A  briefing  was  also 
provided  and  is  attached  to  this  final  report  along  with  a  journal  paper  that  was  cleared 
for  public  release  through  OPSEC  and  has  been  submitted  for  review.  Both  the  briefing 
and  the  demonstration  were  well  received.  Tire  faults  were  detected  and  located  during 
the  demonstration  despite  poor  weather  on  the  day  of  the  demonstration  in  the  form  of 
precipitation.  A  graphical  user  interface  was  used  to  present  the  results  of  these 
demonstrations.  Recommendations  were  made  by  several  individuals  who  attended  the 
demonstration  about  how  the  technology  could  be  further  developed. 
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1.  Objectives 

The  objectives  of  the  project  this  quarter  were  to  address  Tasks  (a)  and  (c)  of  the 
Statement  of  Work,  which  are  listed  below: 

a.  The  Contractor  shall  select  the  necessary  sensors  and  fixtures,  implement  a  diagnostic  speed-blimp 
sensor  and  data  acquisition  system  that  places  sensors  in  a  speed-bump  over  which  the  HMMWV  drives 
over  to  acquire  data,  and  study  the  ability  to  identify  faults  due  to  fatigue,  misassembly,  and  other  types  of 
physical  anomalies  in  mechanical  components.  The  diagnostic  speed  bump  shall  be  no  larger  than  a 
traditional  speed  bump  found  on  a  public  roadway. 

c.  The  Contractor  shall  study  the  effects  of  variability  in  speed,  angle  of  approach,  temperature,  and  other 
variables  on  the  ability  of  the  speed  bump  to  diagnose  vehicle  subsystem  condition.  Models  will  be 
modified  to  account  for  variation  that  is  introduced  by  these  factors  where  the  factors  are  found  to  have  a 
statistically  significant  effect  on  the  system  response. 

The  focus  of  Task  (a)  was  to  select  a  diagnostic  speed  bump  configuration  that  provided 
measurements  that  were  sensitive  to  the  faults  of  interest  in  the  wheels  and  suspensions. 
It  was  also  desirable  to  provide  response  time  histories  with  varying  time  periods  so  the 
effects  of  this  period  on  diagnostic  capabilities  could  be  quantified  when  selecting  the 
diagnostic  speed  bump  configuration. 

The  focus  of  Task  (c)  was  to  develop  an  understanding  of  how  sources  of  variability  in 
the  measurements  affected  the  ability  to  detect  the  faults  of  interest  using  the  diagnostic 
speed  bump  sensor  data.  The  ultimate  goal  of  these  two  tasks  was  to  develop  a  robust 
demonstration  that  could  be  conducted  at  the  end  of  this  year’s  program.  The  word 
“robust”  in  this  context  is  used  to  indicate  that  it  is  desirable  for  the  diagnostic 
perfonnance  to  be  insensitive  to  variability  in  the  dynamic  measurements  that  are 
acquired  using  the  diagnostic  speed  bump. 
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Approach 

The  previous  year’s  effort  focused  on  the  modeling  and  testing  of  a  rubberized  diagnostic 
speed  bump,  which  is  pictured  in  Figure  1.  The  speed  bump  was  108  inches  long,  2.5 
inches  tall,  and  18  inches  wide.  It  was  instrumented  with  two  traixial  accelerometers 
beneath  the  left  and  right  wheels  of  an  approaching  vehicle  as  shown  in  Figure  1 .  As 
discussed  by  DiPetta  et  al.1 2,  the  use  of  the  instrumented  speed  bump  enabled  some  faults 
to  be  detected;  however,  the  inherent  variability  in  diagnostic  testing  using  this  narrow 
speed  bump  required  that  several  datasets  (at  least  5)  be  acquired  from  multiple  runs  for 
averaging  to  develop  a  reliable  fault  index  that  detected  faults.  The  reason  that  this 
narrow  speed  bump  required  measurement  averaging  to  reliably  detect  faults  was  because 
of  the  short  period  response  time  history  that  was  acquired  as  the  vehicle  traversed  the 
bump.  When  the  vehicle  traversed  this  narrow  speed  bump  at  5  mph,  a  measurement  that 
was  approximately  0.2  second  was  acquired.  Rayleigh’s  criterion  states  that  the 
frequency  resolution,  Af,  in  a  dynamic  measurement  was  equal  to  1/T,  where  T  was  the 
time  over  which  the  measurement  was  made.  Shorter  measurements  (i.e.,  smaller  values 
of  T)  resulted  in  more  course  frequency  resolution  (i.e.,  larger  values  of  Af).  In  the  case 
of  the  narrow  speed  bump,  the  frequency  resolution  was  5  Hz.  Because  a  typical  military 
ground  vehicle  has  many  vehicle  modes  of  vibration  below  5  Hz,  this  measurement 
lumped  the  energy  in  all  of  these  modes  of  vibration  into  a  single  frequency  component  at 
5  Hz.  This  type  of  leakage  error  was  not  conducive  for  providing  sensitive  or  repeatable 
diagnostic  measurements'. 


X 

"  ~  ‘  A 


Figure  1.  Diagnostic  speed  bump  configuration  tested  in  previous  year’s  work. 


1  DiPetta,  T.,  Adams,  D.  E.,  Koester,  D.,  Gothamy,  J.,  Decker,  P.,  and  Lamb,  D.,  “Health  Monitoring  for 
Condition-Based  Maintenance  of  a  HMMWV  using  an  Instrumented  Diagnostic  Cleat,”  2009,  Proceedings 
of  the  2009  Congress  of  the  Society  for  Automotive  Engineers. 

2  Adams,  D.,  E.,  “Health  Monitoring  of  Structural  Materials  and  Components:  Methods  with 
Applications,”  2007,  John  Wiley  &  Sons,  Chichester,  UK. 
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In  order  to  realize  a  more  robust  measurement  approach  that  does  not  require  averaging 
in  the  form  of  multiple  runs  to  conduct  diagnostic  testing  on  ground  vehicles,  a  speed 
bump  that  provided  longer  response  time  history  measurements  was  developed.  Figure  2 
shows  a  schematic  of  the  measurement  approach  that  was  used  in  this  extended 
diagnostic  speed  bump.  In  this  configuration,  the  rubberized  speed  bump  provided  the 
excitation  force  to  the  wheels  of  the  vehicle  and  the  plates  positioned  behind  the  speed 
bump  measured  the  response  of  the  vehicle  for  approximately  1  second  after  the  vehicle 
traversed  the  speed  bump.  From  this  perspective,  the  extended  diagnostic  speed  bump 
was  akin  to  the  use  of  modal  impact  testing  for  exciting  broadband  frequency  ranges  in 
mechanical  systems  for  use  in  vibration  analysis  of  such  systems. 

Figure  3  is  a  photograph  of  the  test  setup  along  with  a  FIMMWV  about  to  traverse  the 
extended  diagnostic  speed  bump.  Four  sensors  were  attached  to  two  steel  plates,  which 
were  85  inches  long  and  Vi  inch  thick.  Steel  was  selected  to  avoid  excessive  deformation 
due  to  the  dynamic  weight  of  the  vehicle  -  excessive  deformation  of  the  plate  would 
result  in  filtered  of  the  response  measurement.  In  the  future,  aluminum  plates  will  be 
constructed  to  determine  if  lighter  plates  could  be  used.  The  plates  were  placed  on  a  thin 
rubber  sheet  on  the  roadway  immediately  behind  the  rubberized  speed  bump  underneath 
the  tracking  lanes  of  the  left  and  right  wheels  of  the  vehicle.  The  rubber  sheet  was  used 
to  correct  for  small  differences  in  elevation  of  the  roadway  surface,  much  like  rubber 
couplings  that  are  used  in  rotating  machines  to  account  for  misalignment  of  drivelines. 
Sensors  1  and  2  were  placed  60  inches  behind  the  speed  bump  whereas  sensors  3  and  4 
were  placed  30  inches  behind  the  speed  bump.  Four  sensors  were  used  so  that  the  effects 
of  sensor  position  could  be  studied.  Triaxial  accelerometers  (PCB  356B18)  were  used  so 
that  the  effects  of  measurement  direction  (vertical,  tracking,  and  lateral)  on  diagnostic 
capability  could  be  studied.  Figure  3  shows  the  attachment  of  the  sensors  to  a  National 
Instruments  NI  cDAQ-9178  compact  eight  slot  data  acquisition  chassis  with  NI  9234  data 
acquisition  cards. 


■  Accelerometers 

Figure  2.  Extended  cleat  diagnostic  speed  bump  configuration  that  was  selected  to 
provide  longer  response  time  histories  with  enhanced  frequency  resolution. 
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Figure  3.  Photograph  of  extended  diagnostic  speed  bump  measurement  configuration 
with  rubberized  cleat,  measurement  plates,  sensors,  and  data  acquisition  system. 


The  tests  that  were  run  and  analyzed  for  this  quarterly  report  are  listed  below: 

•  Baseline  condition  of  vehicle  (30  runs) 

•  Driver  front  tire  pressure  reduction  from  20  psi  to  10  psi  (30  runs) 

•  Baseline  condition  of  vehicle  (11  runs) 

•  Passenger  front  tire  pressure  reduction  from  20  psi  to  10  psi  (30  runs) 

•  Baseline  condition  of  vehicle  (11  runs) 

•  Driver  rear  tire  pressure  reduction  from  24  psi  to  10  psi  (30  runs) 

•  Baseline  condition  of  vehicle  (11  runs) 

•  Passenger  rear  tire  pressure  reduction  from  24  psi  to  10  psi  (30  runs) 

•  Baselines  condition  of  vehicle  (11  runs) 
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3.  Results 

3.1  Baseline  data  analysis 

The  acceleration  spectra  at  sensor  3  in  the  vertical  direction  for  the  first  through  the  fifth 
baseline  series  of  data  for  the  front  wheel  excitation  were  plotted  in  Figure  4.  A  Hanning 
window  was  used  to  process  the  portion  of  the  response  time  history  that  was  acquired 
immediately  after  the  front  wheels  crossed  over  the  cleat.  The  narrowband  operational 
response  with  center  frequency  7.5  Hz  was  apparently  the  response  of  the  extended  cleat 
(plate)  due  to  its  interaction  with  the  vehicle  as  it  was  directly  excited  when  the  vehicle 
traversed  the  cleat.  In  contrast,  the  narrowband  spectral  responses  with  center 
frequencies  at  15,  36,  72,  and  100  Hz  appeared  to  be  harmonics  of  the  lower  frequency 
operational  response.  It  is  not  yet  known  if  these  harmonics  are  due  to  the  cleat’s 
response  on  the  elastic  foundation,  the  vehicle  dynamics,  or  a  combination  of  these  two 
sources  of  nonlinear  response.  It  was  clear  from  the  analysis  presented  in  subsequent 
figures  that  these  higher  frequency  operational  responses  could  be  attributed  to  the 
tracking  and  lateral  degrees  of  freedom,  whereas  the  lower  frequency  response  with 
center  frequency  near  7.5  Hz  could  be  attributed  primarily  to  the  vertical  degree  of 
freedom. 
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Figure  4.  Baseline  frequency  spectra  from  sensor  3  (driver’s  side),  vertical  direction 
acceleration  for  a  front  axle  wheel  crossing  measured  using  long  cleat  for  (  )  first  30, 

(  )  second  1 1 ,  ( )  third  1 1 ,  (  )  fourth  1 1 ,  and  ( )  fifth  1 1  data  series. 
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The  average  spectra  for  the  baseline  series  of  data  were  plotted  in  Figure  5.  This  plot 
exhibited  the  same  characteristics  as  the  individual  spectra  in  Figure  4.  It  was  also 
evident  in  Figure  5  that  the  first  two  baseline  data  series  were  similar  to  one  another  and 
the  last  three  series  of  baseline  datasets  were  similar  to  one  another,  but  these  two  groups 
of  spectra  were  different  across  the  entire  frequency  range.  The  similarity  of  the  last 
three  baseline  datasets  suggested  that  there  was  not  a  strong  memory  effect  in  the  vertical 
response  of  the  extended  cleat  due  to  the  simulated  tire  faults  that  were  introduced  by 
reducing  tire  pressures  one  at  a  time.  But  there  was  a  definite  difference  between  the  first 
two  baseline  datasets  and  the  last  three  datasets  that  will  be  further  examined  in  future 
analyses. 
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Figure  5.  Mean  baseline  frequency  spectra  from  sensor  3  (driver’s  side),  vertical 
direction  acceleration  for  a  front  axle  wheel  crossing  measured  using  long  cleat  for  ( ) 
first  30,  (  )  second  1 1 ,  (  )  third  1 1 ,  ( cm  )  fourth  1 1 ,  and  ( )  fifth  1 1  data  series. 


To  better  understand  the  variation  in  the  individual  measurements  that  were  conducted  in 
the  baseline  state  of  the  vehicle,  the  standard  deviation  as  a  function  of  frequency  across 
the  five  sets  of  baseline  data  plotted  in  Figures  4  and  5  were  calculated  and  plotted  in 
Figure  6.  Note  that  the  standard  deviation  was  largest  near  37.5  Hz,  and  smallest  near  20, 
59,  90,  and  120  Hz.  Although  this  information  was  useful  for  defining  the  inherent 
variability  in  the  measurements  acquired  using  the  long  cleat,  these  standard  deviation 
spectra  were  normalized  as  shown  in  Figure  7  to  draw  additional  insight  from  the  data. 
This  result  was  interesting  because  it  indicated  that  the  least  normalized  variation  in  the 
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baseline  data  was  between  2  and  20  Hz.  Throughout  the  remainder  of  the  frequency 
range,  the  normalized  variation  was  nearly  constant  at  50%  of  the  mean  value  of  the 
spectrum  of  interest.  It  was  important  to  focus  the  diagnostic  analysis  in  the  frequency 
range  where  the  normalized  standard  deviation  was  a  minimum  because  smaller  changes 
in  the  spectra  due  to  simulated  faults  in  the  vehicle  should  theoretically  be  observed  in 
this  frequency  range.  Figure  8  shows  a  comparison  between  the  normalized  standard 
deviations  for  sensors  1  through  4  in  the  vertical  direction  acceleration  (sensors  1  and  2 
were  furthest  from  the  cleat,  and  sensors  3  and  4  were  closest  to  the  cleat).  It  was  evident 
in  this  figure  that  sensors  3  and  4  exhibited  the  lowest  normalized  standard  deviation 
suggesting  that  these  two  sensors  would  increase  the  detectability  of  faults.  The 
subsequent  analysis  focused  on  the  data  acquired  from  sensors  3  and  4  due  to  the  lower 
variation  in  this  sensor  data. 
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Figure  6.  Baseline  standard  deviations  of  frequency  spectra  from  sensor  3  (driver’s  side), 
vertical  direction  acceleration  for  a  front  axle  wheel  crossing  measured  using  long  cleat 
for  (  ^b  )  first  30,  (  ^b  )  second  1 1 ,  (  ^b  )  third  1 1 ,  (  )  fourth  1 1 ,  and  ( )  fifth  1 1 

data  series. 
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Figure  7.  Normalized  baseline  standard  deviations  of  frequency  spectra  from  sensor  3 
(driver’s  side),  vertical  direction  acceleration  for  a  front  axle  wheel  crossing  measured 
using  long  cleat  (  )  first  30,  (  ^b  )  second  1 1 ,  ( ^b )  third  1 1 ,  (  )  fourth  1 1 ,  and 

( )  fifth  1 1  data  series. 


11 


Douglas  Adams 


TCN  10009 


10/7/2011 


2.5 


O  20  40  60  80  lOO  120  140  160  180  200 

Frequency  [Hz] 


Frequency  [Hz] 


Figure  8.  Normalized  baseline  standard  deviations  of  frequency  spectra  from  (a)  sensor  3 
(driver),  (b)  sensor  4  (passenger),  (c)  sensor  1  (driver),  and  (d)  sensor  2  (passenger) 
vertical  direction  accelerations  for  front  axle  wheel  crossings  measured  using  long  cleat 
( )  first  30,  ( )  second  1 1 ,  (  hh  )  third  1 1 ,  (  )  fourth  1 1 ,  and  (  )  fifth  1 1  data 

series. 


The  other  two  measurement  degrees  of  freedom  measured  on  the  extended  cleat  in  the 
tracking  (Y)  and  lateral  (X)  degrees  of  freedom  were  also  analyzed  to  assess  any 
qualitative  differences  with  the  vertical  direction  (Z)  degree  of  freedom.  Figure  9  is  a 
comparison  between  the  (a)  vertical  and  (b)  lateral  degrees  of  freedom  for  sensor  3,  and 
Figure  10  is  a  comparison  between  the  (a)  vertical  and  (b)  tracking  degrees  of  freedom 
for  sensor  3.  Note  that  the  lateral  direction  measurement  in  Figure  9(b)  exhibited  a 
narrowband  peak  near  70  Hz  in  contrast  to  the  vertical  direction  measurement,  which 
exhibited  a  peak  in  its  response  near  7.5  Hz.  This  result  indicated  that  the  lateral 
direction  measurement  was  either  a  harmonic  byproduct  of  the  low  frequency  response  in 
the  vertical  direction,  forced  response  directly  due  to  the  cleat,  or  a  combination  of  these 
two  response  contributions.  Also,  note  that  both  the  lateral  direction  and  vertical 
direction  exhibited  peaks  near  70  Hz  suggesting  that  these  two  narrowband  responses 
were  correlated  to  one  another,  but  the  lateral  direction  was  clearly  dominating  in  this 
frequency  range.  The  same  statements  hold  for  the  comparison  of  the  vertical  and 
tracking  direction  accelerations  in  Figure  10  for  the  narrowband  response  that  peaks  near 
37  Hz  in  both  of  the  mean  spectral  amplitudes.  It  can  also  be  seen  in  Figure  9(b)  and 
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Figure  10(b)  that  both  the  lateral  and  tracking  direction  acceleration  spectra  exhibited 
peaks  around  2  Hz.  It  is  unknown  at  this  time  if  this  response  was  due  to  the  extended 
cleat  (elastically  supported  plates  on  the  backside  of  the  cleat)  or  the  vehicle  dynamics. 
Based  on  these  results,  Figure  1 1  was  produced  to  highlight  the  dominant  degrees  of 
freedom  in  the  sensor  3,  vertical  direction  acceleration  narrowband  frequency  ranges  that 
were  peaking  to  some  degree  in  all  of  the  measurements. 


Figure  9.  Mean  baseline  frequency  spectra  from  sensor  3  (driver’s  side),  (a)  vertical  and 
(b)  lateral  direction  accelerations  for  a  front  axle  wheel  crossing  measured  using  long 
cleat  for  (  mb  )  first  30,  ( )  second  1 1 ,  ( )  third  1 1 ,  (  )  fourth  1 1 ,  and  (  mo  ) 

fifth  1 1  data  series. 


Figure  10.  Mean  baseline  frequency  spectra  from  sensor  3  (driver’s  side),  (a)  vertical 
and  (b)  tracking  direction  accelerations  for  a  front  axle  wheel  crossing  measured  using 
long  cleat  for  ( )  first  30,  ( )  second  1 1 ,  ( •—  )  third  1 1 ,  (  )  fourth  1 1 ,  and  (  em 

)  fifth  1 1  data  series. 
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Figure  11.  Mean  baseline  frequency  spectra  from  sensor  3  (driver’s  side)  vertical 
direction  acceleration  for  a  front  axle  wheel  crossing  measured  using  long  cleat  for  ( ) 
first  30,  ( )  second  1 1 ,  (  )  third  1 1 ,  ( :» )  fourth  1 1 ,  and  (  ^a  )  fifth  1 1  data  series 

showing  dominant  degrees  of  freedom  as  a  function  of  frequency. 


The  normalized  standard  deviations  for  the  tracking  and  lateral  acceleration  degrees  of 
freedom  at  sensor  3  were  plotted  in  Figure  12.  Note  that  the  deviation  was  not  as  low  as 
for  the  vertical  direction  in  the  1-20  Hz  range;  however,  the  deviation  was  still  lowest  in 
this  frequency  range  despite  the  fact  that  the  tracking  and  lateral  acceleration  spectra 
exhibited  peaks  in  different  narrowband  frequency  ranges.  This  result  suggested  that  the 
small  nonnalized  deviation  in  all  of  these  measurements  was  indicative  of  the  primary 
forced  response  in  the  vertical  direction  below  20  Hz,  whereas  the  higher  frequency 
narrowband  band  responses  in  the  tracking  and  lateral  directions  (see  Figure  11)  were 
harmonically  coupled  to  the  low  frequency  response. 
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Figure  12.  Normalized  baseline  standard  deviations  of  frequency  spectra  from  sensor  3 
(driver’s  side)  for  the  (a)  lateral  and  (b)  tracking  direction  accelerations  for  front  axle 
wheel  crossings  measured  using  long  cleat  (  ^b  )  first  30,  ( ^b  )  second  1 1 ,  ( ^b  )  third 
1 1 ,  (  b  )  fourth  1 1 ,  and  (  m  )  fifth  1 1  data  series. 


The  (a)  spectra  and  (b)  normalized  standard  deviations  for  a  rear  wheel  crossing  were 
plotted  in  Figure  13  for  comparison  with  the  results  obtained  for  the  front  wheel  crossing. 
Note  that  the  response  characteristics  were  similar  in  the  spectra  in  terms  of  the  frequency 
ranges  that  exhibited  peaks  in  the  response  amplitude;  however,  the  normalized  deviation 
in  Figure  13(b)  was  larger  below  20  Hz  than  it  was  for  the  front  wheel  crossing.  This 
result  suggested  that  rear  wheel  faults  would  be  less  detectable  than  front  wheel  faults. 


Figure  13.  Mean  spectra  and  normalized  baseline  standard  deviations  from  sensor  3 
(driver’s  side)  for  the  vertical  direction  acceleration  for  rear  axle  wheel  crossing 
measured  using  long  cleat  (  ^b  )  first  30,  (  ^b  )  second  1 1 ,  (  ^b  )  third  1 1 ,  (  )  fourth 

1 1 ,  and  (  ^b  )  fifth  1 1  data  series. 
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3.2  Variations  with  vehicle  speed 

Figure  14  shows  the  variations  in  the  acquired  vertical  acceleration  data  from  sensors  3 
and  4  on  the  diagnostic  speed  bump  plates  as  a  function  of  vehicle  speed.  The  speed  was 
estimated  by  normalizing  the  wheelbase  with  the  time  period  during  which  the  vehicle 
wheels  were  in  contact  with  the  plates.  The  data  plotted  on  the  y  axis  was  a  fault  index 
that  was  calculated  by  summing  the  magnitudes  of  the  respective  frequency  spectra  from 
0-200  Hz  (see  Figure  1 1  for  example  of  spectra).  The  color  code  for  the  plotted  symbols 
was  the  same  as  in  the  previous  plots  -  the  plots  in  Figure  14  corresponded  to  the 
baseline  (undamaged)  vehicle  condition  at  various  stages  in  the  series  of  tests  that  were 
listed  previously.  The  centerline  of  points  was  a  second  order  polynomial  curve  fit  of  the 
data  as  a  function  of  speed.  The  two  outer  lines  of  points  were  the  99%  confidence 
bounds  of  this  curve  fit  (i.e.,  centerline  ±3  standard  deviations). 

It  was  evident  by  examining  these  figures  that  the  spectral  energy  in  the  frequency  range 
0-200  Hz  increased  as  a  function  of  vehicle  speed.  This  result  was  anticipated  because 
higher  vehicle  speeds  resulted  in  larger  changes  in  momentum  when  the  vehicle  wheels 
traversed  the  speed  bump  leading  to  larger  responses  measured  by  the  extended 
diagnostic  speed  bump  plates.  It  was  also  evident  that  the  passenger  and  driver  side 
measurements  by  the  diagnostic  speed  bump  exhibited  similar  variations  as  a  function  of 
vehicle  speed;  however,  the  passenger  side  response  (Figure  14(b))  was  roughly  an  order 
of  magnitude  larger  than  the  driver  side  response  (Figure  14(a)).  It  was  also  interesting 
that  the  baseline  data  that  was  acquired  later  in  the  series  of  datasets  listed  previously 
exhibited  higher  vehicle  speeds  and,  therefore,  larger  magnitude  responses  than  the  data 
acquired  earlier  in  the  series  of  datasets.  The  passenger  side  response  also  exhibited  a 
larger  change  with  speed  than  the  driver  side  response. 


To  quantify  the  quality  of  curve  fit  that  these  second  order  polynomials  provided,  the 
error  in  the  fit  for  each  of  the  datasets  was  calculated  and  a  histogram  was  generated 
using  these  errors.  Figure  15  is  a  plot  of  the  histograms  for  the  driver  side  (Figure  15(a)) 
and  passenger  side  (Figure  15(b))  responses.  Both  sets  of  error  exhibited  nearly  Gaussian 
characteristics  with  zero  means  suggesting  that  the  curve  fits  captured  the  underlying 
trends  in  the  variability  as  a  function  of  speed.  The  passenger  side  error  exhibited  two 
times  the  spread  as  the  driver  side  error,  but  as  a  proportion  of  the  measured  response 
magnitude,  the  passenger  side  error  was  smaller  in  magnitude  than  the  driver  side  error. 
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Figure  14.  Variation  in  fault  index  over  frequency  range  from  0-200  Hz  from  (a)  sensor  3 
(driver’s  side)  and  (b)  sensor  4  (passenger’s  side)  for  the  vertical  direction  acceleration 
for  front  axle  wheel  crossing  measured  using  long  cleat  (  first  30,  (  ^n)  second  11, 

(  )  third  1 1 ,  (  )  fourth  1 1 ,  (  —  )  fifth  1 1  data  series,  and  (  )  second  order 

polynomial  curve  fit  with  99%  confidence  bands. 
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Figure  15.  Histogram  of  errors  in  second  order  polynomial  curve  fit  of  fault  index  with 
speed  over  frequency  range  from  0-200  Hz  from  (a)  sensor  3  (driver’s  side)  and  (b) 
sensor  4  (passenger’s  side)  for  the  vertical  direction  acceleration  for  front  axle  wheel 
crossing  measured  using  long  cleat  indicating  nearly  Gaussian  error  distribution. 
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3.3  Tire  fault  data  analysis 

The  next  step  was  to  investigate  the  diagnostic  capability  due  to  tire  faults  in  the  form  of 
reductions  in  tire  air  pressure.  The  prescribed  healthy  front  and  rear  tire  pressures  were 
20  and  22  psi,  respectively.  To  simulate  a  tire  fault  in  one  tire  at  a  time,  the  air  pressure  in 
the  tire  of  interest  was  reduced  to  10  psi.  Thirty  datasets  were  then  acquired  for  the  faulty 
tire  condition.  A  comparison  of  the  mean  baseline  datasets  and  the  datasets  for  the  driver 
front  faulty  tire  were  plotted  in  Figure  16  for  the  vertical  response  measured  by  sensor  3 
on  the  extended  diagnostic  speed  bump.  It  was  evident  that  the  largest  percent  change  in 
the  responses  due  to  the  tire  fault  occurred  in  the  frequency  ranges  30-40  Hz,  60-80  Hz, 
and  95-110  Hz.  Given  the  conclusions  made  in  the  baseline  data  analysis  conducted  in 
the  previous  sections,  it  has  been  postulated  that  these  frequency  ranges  exhibited  the 
largest  magnitude  changes  due  to  the  tire  fault  because  the  responses  in  these  frequency 
ranges  were  dominated  by  the  lateral  and  tracking  wheel  degrees  of  freedom  whereas  the 
frequency  range  from  0-20  Hz  was  dominated  by  the  vehicle  chassis  vertical  degree  of 
freedom  (recall  Figure  11). 
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Figure  16.  Mean  baseline  frequency  spectra  from  sensor  3  (driver’s  side)  vertical 
direction  acceleration  for  a  front  axle  wheel  crossing  measured  using  long  cleat  for 
baseline  data  series  including  (  ^b  )  first  30,  (  ^b  )  second  1 1 ,  (  ^b  )  third  1 1 ,  ( »  ) 
fourth  1 1 ,  and  (  )  fifth  1 1  data  series,  and  (  ^b  )  1 0  psi  under  pressure  in  driver  front 

tire  indicating  frequency  ranges  in  which  change  due  to  fault  could  be  observed. 
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A  fault  index  was  then  extracted  from  the  measured  data  for  each  dataset  by  calculating 
the  sum  of  the  spectral  magnitudes  for  sensors  3  and  4  in  the  vertical  direction  across  all 
three  of  these  frequency  ranges  after  the  front  wheels  traversed  the  speed  bump.  The 
resulting  fault  indices  were  plotted  in  Figure  17  for  the  driver  (Figure  17(a))  and 
passenger  side  (Figure  17(b))  measurements.  Note  that  the  driver  side  fault  index  plot 
detects  all  of  the  10  psi  drive  front  tire  pressure  datasets  (in  red)  because  each  of  these 
datasets  falls  outside  of  the  99%  confidence  bands  for  the  quadratic  curve  fit  that  was 
made  using  the  baseline  data  (in  blue).  It  was  interesting  that  the  quadratic  curve  fits  for 
the  driver  side  and  passenger  side  datasets  were  qualitatively  different  in  these  frequency 
ranges  in  contrast  to  the  similarities  observed  in  these  curve  fits  in  Figure  14  for  the  entire 
frequency  range  from  0-200  Hz.  The  reason  for  these  differences  is  not  yet  well 
understood  but,  given  the  dominant  measurement  degrees  of  freedom  in  the  restricted 
frequency  ranges  used  to  produce  Figure  17,  it  is  believed  that  the  quadratic  curve  fits 
differed  for  the  driver  and  passenger  sides  perhaps  due  to  variation  in  the  plate  boundary 
conditions.  In  some  areas  underneath  the  plates  that  fonn  the  extended  diagnostic  speed 
bump,  small  gaps  were  observed  that  might  have  contributed  to  the  differences  between 
the  driver  and  passenger  side  responses. 
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Figure  17.  Fault  index  over  frequency  ranges  30-40  Hz,  60-80  Hz,  and  95-110  Hz  from 
(a)  sensor  3  (driver’s  side)  and  (b)  sensor  4  (passenger’s  side)  for  the  vertical  direction 
acceleration  for  front  axle  wheel  crossing  measured  using  long  cleat  with  (  )  all 

baseline  datasets,  ( )  second  order  polynomial  curve  fit  with  99%  confidence  bands, 
and  ( )  driver  front  10  psi  tire  pressure. 
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A  comparison  of  the  mean  baseline  datasets  and  the  datasets  for  the  driver  front  faulty 
tire  were  also  plotted  in  Figure  18  for  the  tracking  response  measured  by  sensor  3  on  the 
extended  diagnostic  speed  bump.  It  was  evident  that  the  largest  percent  change  in  the 
responses  due  to  the  tire  fault  occurred  in  the  frequency  range  from  5-60  Hz.  The  tire 
fault  clearly  affects  the  tracking  response  throughout  a  broad  frequency  range.  This 
result  suggests  that  the  tracking  direction  of  response  is  more  broadly  sensitive  to  the 
presence  of  a  tire  fault.  For  a  passenger  front  tire  fault,  the  plot  in  Figure  19  does  not 
indicate  differences  across  such  a  broad  frequency  range. 


-3 
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Figure  18.  Mean  baseline  frequency  spectra  from  sensor  3  (driver’s  side)  tracking 
direction  acceleration  for  a  front  axle  wheel  crossing  measured  using  long  cleat  for 
baseline  data  series  including  (  ^b  )  first  30,  ( ^b  )  second  1 1 ,  (  ^b  )  third  1 1 ,  (  ) 

fourth  1 1 ,  and  (  m  )  fifth  1 1  data  series,  and  (  ^b  )  1 0  psi  under  pressure  in  driver  front 
tire  indicating  frequency  ranges  in  which  change  due  to  fault  could  be  observed. 
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Figure  19.  Mean  baseline  frequency  spectra  from  sensor  4  (passenger’s  side)  tracking 
direction  acceleration  for  a  front  axle  wheel  crossing  measured  using  long  cleat  for 
baseline  data  series  including  (  ^b  )  first  30,  (  ^b  )  second  1 1 ,  ( m )  third  1 1 ,  (  ) 

fourth  1 1 ,  and  (  m  )  fifth  1 1  data  series,  and  (  ^b  )  1 0  psi  under  pressure  in  passenger 
front  tire  indicating  frequency  ranges  in  which  change  due  to  fault  could  be  observed. 


To  better  understand  the  various  sensitivities  of  the  extended  diagnostic  cleat  to  faults  in 
all  four  comers  of  the  vehicle,  the  mean  baseline  frequency  spectra  from  sensors  3  and  4 
were  plotted  for  these  four  plots.  Figure  20  shows  the  mean  spectra  for  the  four  fault 
conditions  as  indicated  in  the  figure  caption.  The  similarities  between  the  fault 
characteristics  in  Figures  20(a)  and  20(c)  are  evident  as  are  the  similarities  between  the 
fault  characteristics  in  Figures  20(b)  and  (d).  Despite  the  difference  in  the  frequency 
ranges  that  exhibit  the  largest  changes  due  to  faults  in  the  driver  side  and  passenger  side 
of  the  vehicle,  the  frequency  ranges  selected  for  further  analysis  of  these  faults  were  30- 
40  Hz,  60-80  Hz,  and  95-1 10  Hz  as  were  used  in  Figure  17. 
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Figure  20.  Mean  baseline  frequency  spectra  from  (a,c)  sensor  3  and  (b,d)  sensor  4  in  the 
vertical  direction  for  a  front  axle  wheel  crossing  measured  using  long  cleat  for  baseline 
data  series  including  ( )  first  30,  (  )  second  1 1 ,  (  )  third  1 1 ,  (  )  fourth  1 1 , 

and  (  eh  )  fifth  1 1  data  series,  and  (  )  10  psi  under  pressure  in  (a)  driver  front,  (b) 

passenger  front,  (c)  driver  rear,  and  (d)  passenger  rear  tire  indicating  frequency  ranges  in 
which  change  due  to  faults  could  be  observed. 


3.4  Receiver  Operator  Characteristics  for  fault  detection 

The  results  in  the  previous  section  in  Figure  17  showed  how  the  damage  indices  for  the 
faulty  front  driver  tire  and  faulty  front  passenger  tire  fell  outside  of  the  normal 
distribution  of  damage  indices  in  the  baseline  case.  To  quantify  the  number  of  false 
positive  and  false  negative  indications  of  damage  that  are  obtained  using  this  approach, 
Receiver  Operator  Characteristic  (ROC)  curves  were  generated.  These  curves  were 
generated  by  selecting  a  threshold  beyond  which  faults  would  be  flagged  (some  fraction 
of  the  standard  deviation  of  the  healthy  distribution  of  the  baseline  data),  counting  the 
number  of  false  indications  of  damage,  and  iterating  until  the  ROC  curve  was  generated. 
False  positive  and  negative  rates  were  counted  using  data  from  front  and  rear  datasets  for 
all  four  tire  fault  conditions  as  well  as  the  baseline  datasets.  The  total  number  of  datasets 
for  calculating  the  false  positive  rates  was  127  whereas  the  total  number  of  datasets  for 
calculating  the  false  negative  rates  was  30.  Figure  21  shows  the  resulting  ROC  curve  for 
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the  driver  front  tire  fault  (V),  passenger  front  tire  fault  (A),  driver  rear  tire  fault  (^),  and 
passenger  rear  tire  fault  (  ).  For  a  driver  side  tire  fault,  a  70%  false  negative  rate  is 
achieved  for  a  1%  false  positive  rate.  When  the  false  negative  rate  goes  to  zero  (i.e., 
when  all  of  the  driver  front  tire  fault  cases  are  flagged  as  faulty),  a  3.7%  false  positive 
rate  is  achieved.  It  is  interesting  to  note  that  the  passenger  side  tire  fault  exhibits  no  false 
negatives  regardless  of  the  threshold  that  was  selected.  The  reason  that  this  was  the  case 
is  because  the  passenger  side  data  exhibits  less  deviation  from  the  mean  as  discussed 
previously.  This  type  or  ROC  analysis  can  be  used  as  a  design  aid  in  selecting  the 
threshold  that  must  be  used  to  achieve  the  desired  level  of  false  positives/negatives. 
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Figure  21.  Receiver  Operating  Characteristic  curves  for  sensors  3  and  4  vertical 
direction  accelerations  for  front  and  rear  axle  wheel  crossings  measured  using  long  cleat 
for  10  psi  under  pressure  in  driver  and  passenger  front  and  rear  tires,  respectively.  False 
positive  and  negative  rates  were  counted  using  data  from  front  and  rear  datasets  for  these 
two  fault  conditions  as  well  as  the  baseline  datasets. 


Figure  22  is  a  close  up  of  the  ROC  results  from  Figure  2 1  in  the  lower-left  hand  corner  of 
that  figure.  As  stated  above,  note  that  when  detecting  passenger  side  tire  faults,  no  false 
negatives  were  obtained  regardless  of  the  threshold  that  was  selected.  The  minimum 
number  of  false  positives  that  were  obtained  for  the  front  and  rear  passenger  side  faults 
were  1.5%  and  3%,  respectively. 
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Figure  22.  Receiver  Operating  Characteristic  curves  (close  up  of  Figure  21  in  lower-left- 
hand  corner). 


Other  ROC  curves  were  also  generated  for  the  tracking  and  lateral  directions  of  response. 
Figures  23  and  24  show  these  ROC  curves  for  the  two  cases  involving  faults  in  the  driver 
front  and  passenger  front  tires.  The  diagnostic  performance  using  the  tracking  and  lateral 
direction  measurements  was  not  as  good  as  the  performance  achieved  using  the  vertical 
direction  measurement  (Figure  21).  However,  for  other  types  of  faults  it  is  possible  that 
all  three  of  these  directional  responses  will  be  useful  for  detecting  faults. 
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Figure  23.  Receiver  Operating  Characteristic  curves  for  sensors  3  (V)  and  4  (A)  tracking 
direction  accelerations  for  front  and  rear  axle  wheel  crossings  measured  using  long  cleat 
for  10  psi  under  pressure  in  driver  and  passenger  front  tires,  respectively.  False  positive 
and  negative  rates  were  counted  using  data  from  front  and  rear  datasets  for  these  two 
fault  conditions  as  well  as  the  baseline  datasets. 
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Figure  24.  Receiver  Operating  Characteristic  curves  for  sensors  3  (V)  and  4  (A)  lateral 
direction  accelerations  for  front  and  rear  axle  wheel  crossings  measured  using  long  cleat 
for  10  psi  under  pressure  in  driver  and  passenger  front  tires,  respectively.  False  positive 
and  negative  rates  were  counted  using  data  from  front  and  rear  datasets  for  these  two 
fault  conditions  as  well  as  the  baseline  datasets. 


3.5  Extended  diagnostic  speed  bump  modal  data  analysis 

The  data  in  the  previous  sections  indicated  that  the  plates  on  the  driver  side  and  passenger 
side  exhibited  large  differences  in  their  measured  response  amplitudes.  Such  differences 
will  complicate  the  calibration  procedure  for  the  instrumented  diagnostic  cleat.  To 
develop  a  better  understanding  of  whether  or  not  these  differences  are  due  to  the  vehicle 
or  the  extended  diagnostic  cleat  hardware,  a  modal  impact  test  was  conducted  on  the 
plates.  Figure  25(a)  shows  the  configuration  of  the  plates  that  were  tested  where  the 
sensors  mounted  to  the  plates  are  indicated  in  red  (at  point  13  on  each  of  the  plates).  The 
numbers  started  with  point  1  in  the  upper  right  hand  comer,  went  to  point  1 8  in  the  lower 
right  hand  corner,  started  again  at  point  19  in  the  upper  center,  went  to  point  36  in  the 
lower  center,  started  at  point  37  in  the  upper  left  hand  comer,  and  went  to  point  54  in  the 
lower  left  hand  comer.  Figure  25(b)  shows  the  schematic  of  the  driver  side  plate  where 
each  point  indicates  a  modal  impact  location  (modal  hammer  was  used  to  impact  the  plate 
in  the  vertical  downward  direction). 
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Figure  25:  (a)  Driver  side  and  passenger  side  extended  cleat  plates  showing  locations  of 
accelerometers  used  in  modal  impact  test,  and  (b)  schematic  of  modal  test  grid  on  driver 

side  plate. 


Figure  26  is  a  plot  of  the  modal  impact  driving  point  frequency  response  function 
magnitudes  (blue)  between  the  forces  applied  at  points  13  on  the  (a)  driver  and  (b) 
passenger  side  plates  and  the  associated  vertical  acceleration  responses  on  those  plates. 
The  driver  side  frequency  response  function  magnitude  is  actually  plotted  transparently 
on  top  of  the  passenger  side  frequency  response  function  to  make  it  easier  to  compare  the 
two  plots.  The  associated  coherence  functions  are  plotted  in  green  on  the  same  axes.  The 
coherence  functions  are  plotted  on  a  log  scale  so  it  is  somewhat  difficult  to  see  the  drops 
in  coherence  but  these  drops  are  modest  beyond  5  Hz.  It  is  evident  from  the  frequency 
response  functions  that  the  passenger  side  frequency  response  function  magnitude  is 
much  larger  (at  least  a  factor  of  10)  than  the  driver  side  frequency  response  function. 

This  result  helps  to  explain  the  differences  that  were  observed  in  the  previous  sections  in 
the  damage  indices  for  the  driver  side  (Figure  14(a))  and  passenger  side  (Figure  14(b)) 
measurements  that  were  obtained  as  the  vehicle  traversed  the  diagnostic  cleat. 


Figure  26:  (a)  Driver  side  driving  point  frequency  response  function  magnitude  (blue) 
and  coherence  function  (green),  and  (b)  passenger  side  frequency  response  magnitude 
and  coherence  functions  (with  driver  side  measurements  shown  beneath). 
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To  further  illuminate  the  differences  in  magnitude  of  the  driver  side  and  passenger  side 
measurements,  all  54  of  the  frequency  response  function  magnitudes  for  the  driver  side 
and  passenger  side  plates  were  plotted  in  Figure  27(a)  and  (b),  respectively.  Several 
observations  can  be  made  when  comparing  these  two  sets  of  frequency  response  function 
magnitudes.  First,  it  is  clear  that  the  passenger  side  frequency  response  function 
magnitudes  are  much  higher  than  the  driver  side  frequency  response  functions.  This 
finding  is  consistent  with  the  discussions  surrounding  Figure  26(b).  Second,  it  is  also 
evident  that  the  driver  side  frequency  response  functions  exhibit  fewer  peaks  (more 
heavily  damped)  -  Figure  27(b)  shows  that  the  passenger  side  frequency  response  has  a 
number  of  lightly  damped  modes  throughout  the  frequency  range  from  0-200  Hz.  Third, 
it  is  also  seen  that  the  passenger  side  inner  and  outer  rows  of  points  exhibit  more 
symmetry  than  the  corresponding  rows  in  the  driver  side  data. 

To  attempt  to  reveal  the  source  of  these  differences  in  the  measured  frequency  response 
functions,  the  operating  deflection  shapes  at  various  frequencies  in  the  two  sets  of 
frequency  response  measurements  were  extracted  and  plotted  in  Figures  28-3 1 .  At  a 
given  frequency,  such  as  35  Hz,  the  magnitude  and  phase  of  the  complex  frequency 
response  functions  for  all  54  modal  impacts  (using  the  vertical  direction  measurement  as 
a  reference)  were  extracted.  These  magnitudes  and  phases  were  then  converted  into  a 
sinusoidal  amplitude,  Magnitude  x  sin  (Phase),  and  plotted  at  the  corresponding 
geometric  point  as  shown  in  Figures  28-3 1 .  Note  that  the  geometries  were  created  from 
left  to  right  to  match  the  modal  grids  pictured  in  Figure  25(b)  from  top  to  bottom. 
Therefore,  the  sensor  locations  are  at  length  location  13  for  both  the  driver  and  passenger 
sides.  The  operating  deflection  shapes  at  18.5  Hz  and  21  Hz  for  the  two  sides  plotted  in 
Figure  28  indicate  that  the  motion  of  the  sensor  at  length  location  13  is  large  relative  to 
the  others  points  for  the  passenger  side  deflection  shape  (Figure  28(b))  but  is  small 
relative  to  the  other  points  for  the  driver  side  deflection  shape  (Figure  28(a)).  This 
observation  may  be  related  to  the  lower  amplitude  measurements  that  are  made  using  the 
driver  side  plate.  The  same  can  be  said  of  the  operating  deflection  shapes  for  the  35  Hz 
motions  in  Figure  29.  This  characteristic  is  not  as  evident  in  Figure  30,  but  is  again 
evident  in  Figure  3 1  for  the  102  Hz  and  105  Hz  motions,  respectively,  for  the  driver  side 
and  passenger  side  plates. 

Assuming  the  two  plates  are  nearly  identical,  it  can  be  concluded  that  the  boundary 
condition  created  by  the  rubber  foundation  beneath  the  driver  side  plate  is  quite  different 
that  the  corresponding  boundary  condition  beneath  the  passenger  side  plate.  And  these 
boundary  conditions  lead  to  a  difference  in  the  operating  deflection  shapes  for  the  two 
plates.  These  differences  in  the  deflection  shapes  of  the  two  plates  lead  to  large 
amplitudes  of  response  in  the  passenger  side  plate.  The  difference  in  damping  is  also 
noteworthy  and  must  also  be  due  to  the  difference  in  how  the  passenger  side  plate  is 
resting  on  the  rubber  foundation. 
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Figure  27 :  (a)  Driver  side  frequency  response  functions  for  inner,  center,  and  outer 
rows,  and  (b)  passenger  side  frequency  response  functions  for  outer,  center,  and  inner 
rows  showing  larger  amplitude  responses  of  passenger  side  plate. 
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Figure  28:  (a)  Driver  side  modal  deflection  shape  at  18.5  Hz,  and  (b)  passenger  side 

modal  deflection  shape  at  21  Hz. 
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Figure  29:  (a)  Driver  side  modal  deflection  shape  at  35  Hz,  and  (b)  passenger  side 

modal  deflection  shape  at  35  Hz. 
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Figure  30:  (a)  Driver  side  modal  deflection  shape  at  57  Hz,  and  (b)  passenger  side 

modal  deflection  shape  at  86  Hz. 
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Figure  31:  (a)  Driver  side  modal  deflection  shape  at  102  Hz,  and  (b)  passenger  side 

modal  deflection  shape  at  105  Hz. 
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3.6  Kinematic  analysis  of  tracking  wheels 

The  data  in  Figure  27  indicated  that  the  plates  on  the  driver  side  and  passenger  side  of  the 
extended  diagnostic  speed  bump  exhibited  different  frequency  response  amplitudes  as  a 
function  of  the  vertical  force  location.  Therefore,  if  the  vehicle  tracks  as  shown  in  Figure 
32  with  an  angle  of  approach  as  small  as  ±5  degrees,  the  tires  can  track  as  far  as  7. 1 
inches  away  from  the  center  line  of  the  plates  that  comprise  the  extended  diagnostic 
speed  bump.  In  addition,  the  location  at  which  the  tires  cross  over  the  speed  bump  will 
change  where  the  0  degree  line  is  positioned  on  the  measurement  plates. 

In  this  section,  the  angle  of  approach  of  the  vehicle  for  the  datasets  studied  in  the 
previous  sections  is  analyzed  and  this  variation  in  angle  of  approach  is  also  interpreted  in 
light  of  the  changes  in  plate  frequency  response  functions  that  are  plotted  in  Figure  27. 
Likewise,  the  effects  of  crossing  location  on  the  speed  bump  are  considered  using  this 
same  type  of  frequency  response  function  analysis  approach.  Based  on  this  analysis,  a 
dynamic  model  is  pursued  in  the  next  section  in  an  effort  to  develop  a  methodology  for 
normalizing  data  to  reduce  the  effects  of  these  two  sources  of  variability  on  the  diagnostic 
results.  That  is,  if  it  can  be  (a)  detennined  that  the  wheels  are  approaching  the  speed 
bump  with  a  certain  angle  of  approach  and  (b)  determined  that  the  wheels  are  crossing  at 
a  given  position  along  the  length  of  the  speed  bump,  then  (c)  the  data  can  be  normalized 
using  frequency  response  function  data  from  the  plates  (that  indicate  the  amplitude  of 
response  will  change  as  a  function  of  the  angle  of  approach  as  well  as  the  point  at  which 
the  vehicle  crossed  over  the  speed  bump  as  it  enters  the  measurement  plate). 
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Figure  32:  Spread  in  wheel  track  for  small  angles  of  approach  resulting  in  variation  in 
response  of  plates  due  to  changes  in  frequency  response  as  shown  in  Figure  27. 
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The  driver  side  plate  is  considered  in  Figure  33.  This  schematic  of  the  modal  grid  on  the 
driver  side  plate  indicates  that  the  wheel  is  initially  tracking  on  the  points  down  the 
middle  of  the  plate  (e.g.,  points  36,  35,  and  34).  If  the  vehicle  is  tracking  with  a  small  but 
non-zero  positive  or  negative  angle  of  approach,  then  the  wheel  will  travel  within  the 
shaded  area  in  Figure  33.  If  the  vehicle  is  tracking  right  (positive  angle  of  approach), 
then  the  forces  applied  by  the  tire  to  the  plate  will  cause  the  measured  frequency  response 
to  be  more  strongly  correlated  with  measurements  that  are  obtained  with  the  force  acts 
closer  to  points  1-18.  On  the  other  hand,  if  the  vehicle  is  tracking  to  the  left  (with  a 
negative  angle  of  approach),  then  the  measured  response  will  be  more  similar  to  the 
response  that  is  obtained  when  forces  are  applied  closer  to  points  37-54.  In  addition,  as 
the  vehicle  traverses  the  plate,  the  frequency  response  characteristics  that  govern  the 
measurement  stem  from  forces  by  the  tire  that  change  their  points  of  action  from  points 
36  to  35  to  34  and  so  on.  If  it  desirable  to  normalize  the  measured  data,  then  these  two 
sources  of  variation  due  to  the  tracking  wheel  and  angle  of  approach  must  be  taken  into 
account.  The  following  paragraphs  analyze  these  sources  of  variation  and  then  the  next 
section  develops  a  model  that  can  be  used  to  compensate  for  these  variations. 


Response  caused  by  force  acting 
in  area  adjacent  to  center  of  plate 
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Response  caused  by  force 
acting  at  center  of  plate 

Figure  33:  Spread  in  wheel  track  for  small  angles  of  approach  causes  contribution  from 
wheel  forces  in  wider  area  as  wheel  exits  plate. 
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Because  of  the  asymmetrical  nature  of  the  data  on  the  driver  side  plate  (see  Figure  27(a)), 
the  passenger  side  plate  data  was  analyzed  instead.  When  analyzing  the  data,  it  was 
assumed  that,  due  to  symmetry,  the  frequency  response  data  relating  forces  applied  to  the 
plate  at  various  points  and  the  responses  measured  by  the  sensor  on  the  right  hand  side 
(outer  side  on  passenger  plate  indicated  in  Figure  32)  were  equivalent  to  the  frequency 
responses  when  the  sensor  on  the  left  hand  side  of  the  plate  was  used  (inner  side  on 
passenger  plate  indicated  in  Figure  32).  The  modal  data  was  analyzed  up  to  60  Hz 
because  the  results  in  Figure  20  indicated  that  the  majority  of  the  diagnostic  data  content 
was  in  the  frequency  range  below  60  Hz. 

To  gain  an  understanding  of  the  variation  in  forced  response  of  the  passenger  plate,  the 
frequency  response  functions  for  forces  applied  at  points  36,  35,  34,  33,  32,  31;  points  30, 
29,  28,  27,  26,  25;  and  points  24,  23,  22,  21,  20,  19  were  plotted  in  Figure  34  (a-c).  Note 
that  in  Figure  34(a)  the  frequency  response  on  the  edge  of  the  plate  at  point  36  is  small 
and  then  increases  steadily  as  the  force  is  moved  from  points  35  through  3 1 .  Then  as  the 
force  moves  from  point  30  to  point  25,  the  frequency  response  decreases.  Then  the 
frequency  response  again  increases  gradually  as  the  force  moves  from  points  24  to  19.  If 
the  measured  spectra  in  Figure  20(b,d)  are  analyzed  in  light  of  these  findings,  it  is  evident 
that  from  20-40  Hz  where  all  of  the  changes  due  to  the  tire  fault  were  observed,  there  are 
substantial  changes  in  the  frequency  response  function  magnitude  as  the  tire  force  moves 
from  the  front  edge  of  the  plate  to  the  back  edge  of  the  plate  in  the  diagnostic  speed  bump 
in  this  frequency  range.  Likewise,  Figure  35  shows  a  comparison  between  these 

frequency  response  functions  along  the  centerline  ( . )  of  points  and  the  frequency 

response  functions  along  the  inner  line  ( _ )  of  points  on  the  passenger  side  plate.  Note 

that  frequency  response  functions  along  the  centerline  of  points  have  lower  magnitudes  in 
general  than  those  along  the  inner  line  of  points.  These  differences  will  cause  significant 
changes  in  amplitude  of  the  measured  signal  in  the  frequency  range  from  20-40  Hz 
depending  on  the  angle  of  approach  as  explained  in  Figure  33,  especially  as  the  wheel 
tracks  towards  the  back  edge  of  the  plate  (Figure  35(c)). 

The  changes  in  fault  index  as  a  function  of  angle  of  approach  were  also  examined  by 
subtracting  the  influence  of  the  vehicle  speed  from  the  fault  indices  for  the  passenger  side 
measurements  corresponding  to  undamaged  passenger  front  conditions,  and  plotting  the 
fault  index  residual  versus  the  angle  of  approach.  Figure  36  shows  this  result,  which 
indicates  that  there  might  be  some  modest  correlation  in  the  change  in  fault  index  with 
angle  of  approach.  But  the  correlation  is  not  at  all  strong. 
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Figure  34:  Frequency  response  function  magnitudes  for  forces  applied  along  centerline 
of  passenger  plate  for  (a)  points  36-31,  (b)  points  30-25,  and  (c)  points  24-19. 
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Figure  35:  Frequency  response  function  magnitudes  for  forces  applied  along  ( . ) 

centerline  and  inner  line  ( _ )  of  passenger  plate  for  (a)  points  36-31,  (b)  points  30-25, 

and  (c)  points  24-19. 
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Figure  36:  Fault  index  after  subtracting  changes  due  to  variation  in  vehicle  speed  as  a 
function  of  angle  of  approach  for  passenger  side  measurements  for  baseline  (x),  driver 
front  tire  fault  (  ),  driver  rear  tire  fault  (  ),  and  passenger  rear  tire  fault  (x)  datasets. 


Figures  32  and  33  indicated  that  the  angle  of  approach  taken  by  the  vehicle  as  it  crosses 
the  extended  diagnostic  speed  bump  can  lead  to  variations  in  the  frequency  response 
functions  as  shown  in  Figures  34  and  35.  However,  the  result  in  Figure  36  indicates  that 
there  is  not  a  strong  correlation  between  the  changes  in  the  fault  index  and  the  angle  of 
approach.  Figure  37  is  a  plot  of  these  same  residual  fault  indices  as  a  function  of  angle  of 
approach  along  with  a  best  quadratic  curve  fit.  This  plot  clearly  indicates  that  the 
correlation  is  weak  between  changes  in  angle  of  approach  and  the  resulting  changes  in  the 
fault  index.  It  is,  therefore,  believed  that  there  are  other  sources  of  variability  that  lead  to 
the  variations  in  the  fault  index  from  test  to  test  that  cannot  be  explained  by  the  variations 
in  speed  as  discussed  in  Section  3.3. 
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Figure  37:  Fault  index  after  subtracting  changes  due  to  variation  in  vehicle  speed  as  a 
function  of  angle  of  approach  for  passenger  side  measurements  along  with  quadratic 

curve  fit. 


Figure  38  illustrates  another  source  of  variability  in  the  way  in  which  the  wheel  of  the 
vehicle  traverses  the  diagnostic  speed  bump.  In  this  figure,  it  is  assumed  that  the  drive 
front  wheel  can  cross  at  point  1  on  the  speed  bump  or  at  point  2.  Depending  on  where  the 
wheel  crosses  the  speed  bump,  the  distance  from  that  point  to  sensors  3  and  1  on  the 
driver  side  plate  changes.  This  different  leads  to  different  delays  in  the  responses 
measured  by  accelerometers  3  and  1 .  It  is  postulated  that  this  difference  in  the 
measurement  delay  can  potentially  be  used  to  further  normalize  the  test  data.  Figure  39 
shows  the  calculation  of  the  distances,  L3k  and  Llk,  from  a  point  k  on  the  speed  bump  to 
accelerometers  3  and  1,  respectively.  Note  that  Llk  is  always  longer  than  L3k  but  that  the 
ratio  Llk  /  L3k  of  these  two  distances  becomes  smaller  as  Ck  increases,  i.e.,  as  the  wheel 
crossing  moves  towards  the  upper  edge  of  the  plate.  In  the  subsequent  plots  and  analysis, 
the  passenger  side  plate  is  considered  due  to  the  greater  repeatability  in  the  data  that  was 
found  in  previous  analyses. 
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Accelerometers 


Figure  38:  Illustration  of  changes  in  path  from  tire  crossing  locations  1  and  2  to  sensor 
degrees  of  freedom  at  accelerometers  1  and  3. 

L3k  =  VA2  +  C; 

L\k  =  +  C\ 


Figure  39:  Calculation  of  distance  from  point  k  to  accelerometers  3  and  1 . 
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The  potential  correlation  between  the  residual  fault  index  and  the  phase  differences  in  the 
measurements  that  were  acquired  by  sensors  at  different  distances  from  the  forcing 
function  on  the  plate  were  analyzed  next.  Figure  40(a)  shows  the  spectral  magnitudes  for 
seven  baseline  datasets  from  channel  12  (sensor  4)  on  the  passenger  side  plate  of  the 
extended  diagnostic  speed  bump.  It  is  evident  that  the  data  from  the  black,  cyan  (light 
blue),  and  yellow  datasets  are  generally  larger.  Figure  40(b)  shows  the  differences  in 
phase  in  the  measurements  acquired  at  sensor  4  (channel  12)  and  sensor  2  (channel  6). 
Note  that  the  phase  differences  that  are  largest,  which  indicate  longer  time  delay  between 
the  measurements,  correspond  to  the  spectral  magnitudes  that  are  largest.  The  largest 
phase  differences  are  associated  with  the  wheel  crossings  that  are  nearest  to  the  sensors  as 
illustrated  in  Figure  39.  This  result  suggests  that  the  closer  the  wheel  crossing  is  to  the 
sensors  (as  indicated  in  Figure  39),  the  larger  the  residual  amplitudes.  It  is  also  evident 
from  these  spectral  magnitudes  that  the  standard  deviation  in  the  measured  response  is 
largest  for  these  wheel  crossing  locations  closest  to  the  sensors.  Figure  41  shows 
additional  results  for  twenty  baseline  datasets  indicating  similar  findings  to  those  in 
Figure  40. 


0.03 


for  seven  baseline  tests,  and  (b)  corresponding  difference  in  unwrapped  phase  between 
channels  12  and  6  (see  Figure  39  for  driver  side  plate  sensor  locations). 
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Figure  41:  (a)  Magnitude  of  response  of  channel  12  for  sensor  4  on  passenger  side  plate 
for  twenty  baseline  tests,  and  (b)  corresponding  difference  in  unwrapped  phase  between 
channels  12  and  6  (see  Figure  39  for  driver  side  plate  sensor  locations). 


The  residual  fault  indices  were  then  plotted  in  Figure  42  versus  the  average  unwrapped 
phase  difference  from  0-45  Hz  between  channels  12  and  6  for  the  passenger  side  plate  in 
the  extended  speed  bump  in  the  diagnostic  frequency  range.  The  absolute  values  of  the 
fault  indices  were  plotted  because  it  was  found  that  the  fault  indices  were  nearly 
symmetric  about  a  fault  index  of  zero.  The  quadratic  (pink)  and  linear  (red)  curve  fits 
were  then  applied  to  the  residual  fault  indices  for  all  of  the  baseline  datasets  for  the 
passenger  front  wheel  crossing.  There  are  two  important  conclusions  that  can  be  drawn 
from  this  result.  First,  there  is  a  strong  correlation  between  the  average  phase  difference 
in  these  two  acceleration  measurements  and  the  residual  fault  index  -  larger  (more 
negative)  phase  differences  translate  into  larger  residual  fault  indices.  Second,  larger 
phase  differences  also  result  in  more  deviation  in  the  residual  fault  indices  that  are 
measured  from  test  to  test.  Therefore,  the  summary  conclusion  is  that  the  phase 
difference  in  the  measurements  should  be  minimized  to  reduce  the  variability  in  the 
diagnostic  speed  bump  measurement.  To  reduce  the  phase  difference,  the  wheel  should 
track  further  away  from  the  sensors  (e.g.,  close  to  point  2  than  point  1  in  Figure  38). 
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Phase  Diff  Accel 

Figure  42:  Absolute  value  of  fault  index  after  subtracting  changes  due  to  variation  in 
vehicle  speed  as  a  function  of  mean  difference  in  unwrapped  phase  from  0-45  Hz  in 
channels  6  and  12  for  passenger  side  data  along  with  quadratic  and  linear  curve  fits. 


3.7  Dynamic  analysis  of  diagnostic  speed  bump 

Figure  43  shows  a  simulated  forcing  function  that  was  used  to  study  the  forced  response 
of  the  plate  due  to  the  tracking  motion  of  the  tire.  This  force  centered  around  20  Hz  was 
assumed  to  translate  over  the  plate  along  the  centerline  as  pictured  in  Figure  33;  in  other 
words,  the  tire  was  assumed  to  start  at  point  36  and  end  at  point  19.  In  order  to  apply  this 
force  to  the  plate  using  the  measured  frequency  response  functions,  the  force  was 
decomposed  using  a  series  of  translating  boxcar  windows  as  illustrated  in  Figure  44. 

This  series  of  plots  represents  the  first  five  decompositions  of  the  force  into  forces 
components  that  act  one  after  the  other  at  points  36,  35,  34,  33,  and  32  in  Figure  33. 
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Figure  43:  Simulated  forcing  function  due  to  tracking  of  tire  along  plate. 
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Figure  44:  Summation  of  force  components  created  using  a  translating  boxcar  window 
that  moves  at  a  speed  equal  to  the  vehicle  speed  along  the  plate. 


In  order  to  develop  a  dynamic  model  of  the  plate’s  forced  response  due  to  this  translating 
force  by  the  tire,  the  mathematical  representation  of  the  forcing  function  that  was  used  to 
generate  Figure  43  is  given  by, 


t 

f{t)  =  e  rsin(W) 


(1) 


where  the  time  constant  and  frequency  were  selected  arbitrarily.  It  is  desired  to  measure 
the  variations  in  this  forcing  function  due  to  faults  using  the  diagnostic  speed  bump  as  a 
measurement  system.  This  force  was  then  decomposed  as  shown  in  Figure  44. 
Mathematically,  this  decomposition  of  the  force  can  be  expressed  as  follows: 


b= 1 


0/(0= Xaw  where  h=(p- 0 

b= 1 


L 

Ysv 


(2) 


where 

by, 


V  is  the  vehicle  speed,  L  is  the  plate  length,  and  the  sliding  boxcar  window  is  given 

0 
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where  us(t)  is  the  step  function.  The  time  delay,  L/18V,  represents  the  time  it  takes  for  the 
tire  to  travel  from  one  point  to  another  along  the  centerline  in  the  schematic  shown  in 
Figure  33.  ^ 


Each  of  the  decomposed  force  components,  fb(t),  in  Eq.  (2)  was  then  transformed  into  the 
frequency  domain,  and  these  forces  were  multiplied  by  the  respective  frequency  response 
functions  shown  in  34(a-c)  to  produce  the  responses  to  each  of  these  decomposed  forces. 
These  responses  were  then  summed  to  produce  the  total  measured  response  at  the  sensor: 


18 
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where  Ha.b( co)  denotes  the  frequency  response  function  between  the  points  along  the 
centerline  of  the  plate  in  Figure  33  starting  at  point  36  and  ending  at  point  19  and  the 
response  measured  by  the  accelerometer,  a,  on  the  plate.  Fi,( co)  denotes  the  Fourier 
transform  of  each  of  the  18  decomposed  force  components  in  Eq.  (2).  The  Fourier 
transform  of  the  translating  boxcar  function  is  given  in  the  third  line  of  Eq.  (4).  The  “*” 
symbol  denotes  the  convolution  of  the  frequency  transform  of  the  translating  window 
function  with  the  frequency  transform  of  the  forcing  function  imposed  by  the  tire  on  the 
plate. 


In  Eq.  (4),  Ha,b(  co),  A(  co),  and  Wi,(  co)  are  known  quantities  based  on  the  speed  of  the 
vehicle,  the  dimensions  of  the  extended  diagnostic  speed  bump,  and  the  modal  impact 
testing  that  was  performed  on  the  plates  of  the  speed  bump.  Eq.  (4)  can  also  be  expressed 
in  the  time  domain  as  follows  using  multiplication  as  opposed  to  convolution: 


a(t ) 
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where  the  definition  of  the  windowed  impulse  response  function,  hw(a,b)(t)  is  evident  from 
the  fourth  row  of  Eq.  (4).  By  inverting  the  expression  in  brackets,  the  forcing  function 
from  the  tire  can  theoretically  be  recovered  directly  from  Eq.  (5). 

It  is  evident  in  Eq.  (4)  that  if  the  tire  is  tracking  along  a  different  line  on  the  plate  of  the 
extended  diagnostic  speed  bump,  there  will  be  a  change  in  the  measured  acceleration 
even  if  the  condition  of  the  vehicle  is  the  same.  The  goal  of  developing  the  model  in  Eq. 
(4)  was  to  determine  a  method  for  normalizing  the  measured  data  to  reduce  this 
variability  in  the  acceleration  measurement.  Based  on  the  re-expression  in  Eq.  (5),  it 
appears  that  it  may  be  possible  to  normalize  the  measured  acceleration  data  in  this 
manner. 


3.8  Modeling  of  extended  diagnostic  speed  bump 

The  findings  that  were  presented  in  the  previous  sections  were  for  the  most  part  empirical 
in  nature;  therefore,  a  simulation  model  was  developed  to  verify  these  findings.  For 
example,  one  of  the  intents  of  this  model  was  to  verify  that  there  are  variations  of  the  type 
observed  experimentally  in  the  frequency  response  of  the  plate  within  the  extended 
diagnostic  speed  bump.  Another  intent  of  the  model  was  to  show  that  there  is  variation 
due  to  the  crossing  point  of  the  tire  on  the  cleat  and  that  this  variation  is  largest  when  the 
plate  is  positioned  symmetrically  with  respect  to  the  cleat.  An  illustration  of  the 
simulation  model  that  was  developed  is  shown  in  Figure  45. 


Figure  45:  Dynamic  model  of  extended  diagnostic  cleat  plate  placed  on  the  driver  or 

passenger  side  of  the  vehicle. 
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The  plate  is  modeled  as  a  network  of  coupled  translational  degrees  of  freedom  resting  on 
an  elastic  foundation.  The  passenger  or  driver  side  of  the  vehicle  is  modeled  as  a  quarter 
car  with  sprung  and  unsprung  masses,  which  are  supported  by  tire  and  suspension 
springs.  The  vehicle  moves  across  the  plate  after  it  has  encountered  the  cleat  in  the 
simulation.  The  cleat  introduces  initial  conditions  of  the  sprung  and  unsprung  masses 
and  then,  as  the  quarter  car  translates  across  the  plate,  initial  conditions  are  passed  from 
one  time  sequence  in  the  simulation  to  the  next  sequence.  It  is  assumed  that  the  sensor  is 
placed  on  the  plate  on  degree  of  freedom  4. 

The  first  set  of  analysis  results  that  were  obtained  using  this  model  consisted  of  the 
frequency  response  functions  relating  the  forces  applied  at  various  points  along  the  plate 
to  the  acceleration  measured  by  the  sensor.  The  centerline  of  points  along  the  plate 
model  were  considered  first  (points  17  through  24).  The  frequency  response  functions 
corresponding  to  forces  applied  in  three  consecutive  set  of  points  along  this  centerline  are 
plotted  in  Figure  46  (a)  points  17-19,  (b)  20-21,  and  (c)  22-24.  Although  the  magnitudes 
are  not  identical  to  the  measured  magnitudes  in  Figure  34,  the  trends  in  the  experimental 
and  simulation  frequency  response  functions  along  the  centerline  of  the  plate  are  similar. 
That  is,  forcing  functions  on  the  edges  of  the  plate  produce  larger  measured  response 
accelerations  than  forces  at  the  center  of  the  plate.  Also,  the  experimental  and  simulation 
frequency  response  function  magnitudes  both  exhibit  a  peak  just  above  0  Hz.  This  peak 
corresponds  to  the  rigid  body  modal  deflection  shape  of  the  plate  resting  on  the  elastic 
foundation.  The  simulated  rigid  body  mode  of  the  plate  is  much  more  lightly  damped 
than  was  found  in  the  experimental  data.  This  difference  will  result  in  a  lightly  damped 
oscillation  of  the  measured  acceleration  on  the  plate. 

The  second  set  of  analysis  results  compared  the  frequency  response  functions  for  forces 
applied  along  the  centerline  of  points  to  the  functions  for  forces  applied  along  the  inner 
line  of  points.  Figure  47  shows  the  comparison  of  these  two  sets  of  frequency  response 
functions.  Note  that  these  results  are  qualitatively  similar  to  the  results  in  Figure  35  for 
the  experimentally  measured  frequency  response  functions.  The  inner  line  of  points 
exhibit  smaller  magnitude  frequency  response  functions  across  most  of  the  frequency 
range  in  both  the  simulated  and  experimental  frequency  response  functions. 

The  third  set  of  analysis  results  for  the  simulation  model  consisted  of  the  modal 
deflection  shapes  of  the  plate  model.  Figures  48  through  5 1  show  the  modal  deflection 
shapes  for  the  first  four  modes  of  vibration  of  the  plate.  These  figures  show  some 
agreement  with  the  experimentally  measured  modes  shapes  in  Figures  28  through  31. 

But  it  is  clear  that  the  boundary  condition  of  the  plate  in  the  experimental  setup  is  not  a 
uniform  elastic  foundation  as  simulated  in  Figure  45.  Despite  these  discrepancies 
between  the  experimental  and  theoretical  modal  deflection  shapes,  the  simulation  model 
will  be  utilized  to  study  the  forced  response  due  to  the  moving  quarter  car  excitation  in 
subsequent  sections. 
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Figure  46:  Frequency  response  function  magnitudes  for  forces  applied  along  centerline 
of  plate  in  Figure  45  for  (a)  points  17-19,  (b)  20-21,  and  (b)  points  22-24. 
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Figure  47:  Frequency  response  function  magnitudes  for  forces  applied  along  ( . ) 

centerline  and  inner  line  ( _ )  of  passenger  plate  for  (a)  points  17-19  (33-35),  (b)  points 

20-2 1  (36-37),  and  (c)  points  22-24  (38-40). 
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Figure  48:  Plate  modal  deflection  shape  at  18.1  Hz. 


Figure  49:  Plate  modal  deflection  shape  at  29.4  Hz. 
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Figure  50:  Plate  modal  deflection  shape  at  32.2  Hz. 


Figure  51:  Plate  modal  deflection  shape  at  35.4  Hz. 
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3.9  Simulation  of  extended  diagnostic  speed  bump 

The  model  that  was  developed  in  Section  3.8  was  used  in  this  section  to  simulate  the 
response  of  the  extended  diagnostic  speed  bump  for  various  types  of  faults  in  the  quarter- 
car  model.  The  goal  of  these  simulations  was  to  better  understand  the  variability  in 
measurements  due  to  variability  in  vehicle  operating  conditions  such  as  the  crossing  point 
on  cleat,  speed,  and  payload  of  the  vehicle.  The  initial  simulations  assumed  that  there 
were  no  dynamic  interactions  between  the  plate  in  the  model  and  the  quarter  car  that 
traverses  the  plate.  It  was  also  assumed  that  moving  weight  of  the  wheel  had  no  effect  on 
the  dynamic  response  of  the  plate  in  the  initial  simulations;  however,  this  assumption  will 
be  lifted  in  later  simulations  to  examine  the  effects  of  changes  in  vehicle  payload. 

The  simulation  was  run  assuming  a  vehicle  speed  of  5  mph  with  the  plate  initial 
conditions  equal  to  zero  (zero  displacement  and  velocity  across  the  40  degrees  of 
freedom  of  the  plate).  The  parameters  in  the  quarter  car  model  and  plate  model  are  given 
in  the  appendix  in  the  Matlab  source  code.  In  this  first  set  of  simulations,  the  force 
imposed  by  the  tire  on  the  plate  was  assumed  to  transition  instantaneously  from  one 
degree  of  freedom  to  the  next  on  the  plate  model  in  Figure  45.  In  other  words,  a  sliding 
boxcar  window  was  applied  to  the  forcing  function  in  the  tire  to  move  that  forcing 
function  along  the  plate  surface  as  the  quarter  car  traverses  the  simulated  diagnostic  cleat. 

Figure  52  shows  the  baseline  response  of  the  measured  displacement  at  degree  of 
freedom  4  in  the  plate  model  (blue  curve),  the  force  in  the  quarter  car  tire  as  it  traversed 
the  plate  (green  curve),  and  the  acceleration  (obtained  through  numerical  integration)  of 
degree  of  freedom  4  of  the  plate  model  (red  dashed  curve).  This  simulation  result  led  to 
several  interesting  insights. 

First,  the  force  (in  green)  exhibited  two  natural  frequencies  of  vibration  initially  after 
it  crossed  the  cleat  and  began  to  traverse  the  plate.  The  highest  natural  frequency  was 
initially  present  but  decayed  quickly  whereas  the  lowest  natural  frequency  of  the 
quarter  car  model  persisted  until  the  end  of  the  plate.  This  result  was  consistent  with 
the  findings  from  the  extended  diagnostic  cleat  experimental  data. 

Second,  although  the  displacement  (in  blue)  did  not  follow  this  force  time  history,  the 
acceleration  (in  red)  at  degree  of  freedom  4  did  follow  the  force  time  history 
reasonable  well.  The  additional  frequency  components  in  the  plate  acceleration 
response  were  at  higher  frequencies  of  vibration.  This  result  indicated  that  the 
acceleration  of  the  plate  was  a  good  measure  of  the  force  in  the  tire  of  the  vehicle. 
Third,  the  frequency  spectrum  of  the  acceleration  response  in  Figure  53  also 
resembled  the  force  spectrum  fairly  well.  Specifically,  the  two  resonant  frequencies 
in  the  quarter  car  model  were  evident  in  the  acceleration  spectrum.  However,  the 
acceleration  spectrum  also  exhibited  frequency  content  above  the  second  resonant 
frequency  due  in  part  to  signal  processing  leakage  (since  the  time  history  does  not  die 
out  by  the  end  of  the  time  window  in  Figure  52)  and  the  technique  that  was  used  to 
move  the  forcing  function  from  one  degree  of  freedom  to  the  next  on  the  plate  model. 
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To  attempt  to  reduce  these  effects  on  the  acceleration  spectrum  due  to  the  movement  of 
the  forcing  function  from  one  degree  of  freedom  to  the  next,  a  Hanning  window  was  used 
to  smooth  out  this  transition  of  the  force  between  the  degrees  of  freedom.  Figure  54 
shows  the  corresponding  time  histories  that  were  obtained  in  these  simulations  and  Figure 
55  shows  the  spectral  amplitude  plots.  Note  that  there  are  still  frequency  components  at 
frequencies  other  than  the  resonant  frequencies  of  the  quarter  car. 


Figure  52:  Response  time  histories  of  the  plate  displacement  ( _ ),  tire  force  ( _ ),  and 

acceleration  (-  -  -)  using  boxcar  window  to  transition  force  between  degrees  of  freedom. 
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Figure  53:  Response  spectra  of  the  plate  displacement  ( _ ),  tire  force  ( _ ),  and 

acceleration  (-  -  -)  using  boxcar  window  to  transition  force  between  degrees  of  freedom. 
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Figure  54:  Response  time  histories  of  the  plate  displacement  ( _ ),  tire  force  ( _ ),  and 

acceleration  (-  -  -)  using  Hanning  window  to  transition  force  between  degrees  of  freedom. 
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Figure  55:  Response  spectra  of  the  plate  displacement  ( _ ),  tire  force  ( _ ),  and 

acceleration  (-  -  -)  using  Hanning  window  to  transition  force  between  degrees  of  freedom. 


To  better  understand  the  frequency  content  of  the  acceleration  spectrum  that  was  obtained 
for  the  extended  diagnostic  cleat  plate  model,  the  force  time  history  in  the  tire  was  plotted 
together  with  the  sliding  force  time  history  using  a  boxcar  window  (Figure  56(a))  and  a 
Hanning  window  (Figure  57(a)).  Note  that  the  contiguous  force  time  histories  that  were 
windowed  with  the  sliding  boxcar  function  in  Figure  56(a)  were  identical  to  the  actual 
force  imposed  by  the  tire  on  the  plate;  however,  these  contiguous  time  histories  had  sharp 
discontinuities  each  time  the  tire  moved  from  one  degree  of  freedom  to  the  next  degree  of 
freedom  on  the  plate.  In  contrast,  the  contiguous  set  of  windowed  force  time  histories 
using  the  Hanning  window  in  Figure  57(a)  did  not  exhibit  discontinuities;  however,  the 
windowed  series  of  force  time  histories  did  not  exactly  match  the  actual  force  time 
history  imposed  by  the  vehicle  on  the  plate  using  the  Hanning  window. 

The  force  spectra  corresponding  to  the  time  domain  functions  are  shown  in  Figures  56(b) 
and  57(b).  Note  that  the  spectra  generated  using  the  series  of  sliding  box  car  windows 
produced  a  peak  initially  at  the  second  mode  of  the  quarter  car  model  and  then  the  energy 
in  the  spectra  shifted  towards  the  first  mode  of  the  model  as  time  increased.  Also  note 
that  the  spectra  that  were  initially  produced  by  the  first  windowed  force  produced  ripples 
that  caused  similar  ripples  in  the  measured  response  on  the  plate  (see  Figure  53).  The 
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link  between  the  force  spectra  using  the  Hanning  window  in  Figure  57(b)  and  the 
measured  response  of  the  plate  in  Figure  55  was  not  as  evident  based  on  this  analysis. 
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Figure  56:  (a)  Force  time  history  from  quarter  car  model  ( - )  and  windowed  force  time 

history  using  series  of  eight  boxcar  windows  that  slide  along  the  time  history,  and  (b) 
corresponding  frequency  spectra  for  original  force  ( - )  and  windowed  forces. 
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Figure  57:  (a)  Force  time  history  from  quarter  car  model  ( - )  and  windowed  force  time 

history  using  series  of  eight  Hanning  windows  that  slide  along  the  time  history,  and  (b) 
corresponding  frequency  spectra  for  original  force  ( - )  and  windowed  forces. 
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The  analysis  above  did  not  reveal  any  significant  insights  into  how  the  effects  of  the 
sliding  window  selection  could  be  minimized  in  the  simulation  results.  Therefore,  a 
series  of  simulations  was  conducted  using  both  the  boxcar  and  Hanning  window  types. 
The  simulations  were  conducted  over  a  range  of  quarter  car  vehicle  speeds  from  4  to  7 
mph.  The  results  of  the  simulations  are  plotted  in  Figures  58(a,b)  for  the  boxcar  window 
and  Figures  58(c,d)  for  the  Hanning  window.  The  force  spectrum  in  the  wheel  of  the 
quarter  car  is  plotted  in  both  Figures  58(a)  and  (c)  for  reference.  This  force  spectrum 
indicated  that  more  energy  was  delivered  to  the  higher  frequency  range  of  the  quarter  car 
as  the  vehicle  traveled  more  quickly  over  the  simulated  speed  bump  as  expected.  The 
second  mode  of  vibration  of  the  quarter  car,  consequently,  responded  with  greater 
amplitude  for  greater  vehicle  speed.  Interestingly,  the  sprung  mass  resonance  (first  mode 
of  vibration)  did  not  exhibit  an  appreciable  change  in  amplitude  when  the  speed  of  the 
vehicle  increased. 

Note  that  below  20  Hz,  the  boxcar  window  led  to  a  plate  response  in  Figure  58(b)  that 
was  very  similar  to  the  actual  quarter  car  force  in  Figure  58(a).  However,  the  Hanning 
window  response  led  to  a  plate  response  in  Figure  58(d)  that  was  not  at  all  similar  to  the 
force  in  the  quarter  car  in  Figure  58(c).  This  result  suggested  that  the  boxcar  wind  should 
be  used  to  perform  the  simulations  because  it  led  to  a  plate  response  that  was  most  similar 
to  the  force  in  the  quarter  car  wheel. 
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Figure  58:  (a)  Force  spectrum  from  quarter  car  model  for  speeds  ranging  from  4  to  7 
mph,  (b)  corresponding  frequency  spectra  for  plate  accelerations  using  sliding  boxcar 
window  to  apply  the  forcing  function  from  the  quarter  car  model  to  the  plate,  (c)  (repeat) 
force  spectrum  from  quarter  car  model  for  speeds  ranging  from  4  to  7  mph,  and  (d) 
corresponding  frequency  spectra  for  plate  accelerations  using  sliding  Flanning  window  to 
apply  the  forcing  function  from  the  quarter  car  model  to  the  plate. 
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3.10  Simulation  of  faults  in  quarter  car  using  extended  cleat  model 

The  model  that  was  developed  in  Sections  3.8  and  3.9  was  used  in  this  section  to  simulate 
the  effects  of  faults  in  the  quarter  car  model  on  the  resultant  force  in  the  wheel  and 
measured  acceleration  on  the  plate. 

First,  the  suspension  stiffness  was  reduced  to  95%,  90%,  80%,  and  50%  of  the  original 
stiffness  and  the  wheel  force  and  plate  acceleration  at  degree  of  freedom  4  were  plotted  in 
Figures  39(a)  and  (b).  The  plots  indicated  that  the  second  resonant  frequency  decreased 
as  the  stiffness  decreased  while  the  amplitude  at  the  first  resonance  decreased  and  the 
amplitude  of  the  second  resonance  increased.  This  result  was  expected  because  a 
decrease  in  stiffness  of  the  suspension  would  result  in  less  transfer  of  force  to  the  plate 
near  the  first  resonance  but  a  greater  transfer  near  the  second  resonance  due  to  the 
lowering  of  that  resonant  frequency.  For  the  closely  spaced  modes  of  vibration  in  the 
actual  wheeled  vehicle  that  has  been  tested,  the  net  effect  of  this  reduction  in  suspension 
stiffness  was  observed  to  be  a  reduction  in  the  measured  response  amplitudes,  which  is 
consistent  with  this  simulation  result. 

Second,  the  tire  stiffness  was  reduced  to  95%,  90%,  80%,  and  50%  of  the  original 
stiffness  and  the  wheel  force  and  plate  acceleration  at  degree  of  freedom  4  were  again 
plotted  in  Figures  39(c)  and  (d).  The  plots  again  indicated  a  reduction  in  the  natural 
frequency  of  the  second  mode  of  vibration  and  a  smaller  but  noticeable  increase  in  that 
mode’s  of  vibration  resonant  response  amplitude.  At  other  frequencies,  the  reduction  in 
tire  stiffness  led  to  a  reduction  in  the  force  amplitude  that  was  transmitted  and  to  which 
the  plate  responded  as  expected.  This  result  was  also  consistent  qualitatively  with  the 
experimental  observations  for  reductions  in  tire  air  pressure. 

The  third  and  fourth  fault  simulations  were  conducted  by  reducing  the  damping  in  the 
suspension  and  then  the  damping  in  the  tire.  The  results  obtained  for  a  reduction  in  the 
suspension  damping  were  plotted  in  Figures  40(a)  and  (b),  whereas  the  results  for  a 
reduction  in  the  tire  damping  were  plotted  in  Figures  40(c)  and  (d).  For  both  of  these 
cases  where  damping  parameters  in  the  quarter  car  were  reduced,  the  amplitude  of 
response  increased  because  less  damping  resulted  in  greater  forced  response  of  the 
vehicle  and,  therefore,  greater  force  transmitted  to  the  plate.  Assuming  the  experiments 
that  were  performed  in  the  previous  sections  resulted  in  an  increase  in  the  amount  of 
damping  in  the  tire  due  to  a  decrease  in  the  tire  pressure,  these  simulation  results  in 
Figures  40(a-d)  were  also  consistent  with  the  experimental  observations.  This  result  was 
also  interesting  because  it  suggested  that  the  force  in  the  wheel  and  the  subsequent 
response  of  the  extended  diagnostic  cleat  plate  were  most  sensitive  to  changes  in  the 
stiffness  of  the  tire  and  suspension.  However,  it  should  be  noted  that  changes  in  damping 
were  difficult  to  simulate  because  it  was  probably  the  case  that  the  actual  changes  in 
damping  in  the  experiments  were  nonlinear  in  nature  but  the  simulations  failed  to  capture 
these  nonlinearities. 
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Figure  59:  (a)  Force  spectrum  from  quarter  car  model  with  ( _ )  100%  and  ( _ )  95%, 

85%,  80%,  and  50%  suspension  stiffness,  (b)  corresponding  frequency  spectra  to  (a)  for 
plate  acceleration  at  degree  of  freedom  four,  (c)  force  spectrum  from  quarter  car  model 

with  ( _ )  100%  and  ( _ )  95%,  85%,  80%,  and  50%  tire  stiffness,  and  (d)  corresponding 

frequency  spectra  to  (c)  for  plate  acceleration  at  degree  of  freedom  four. 
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Figure  60:  (a)  Force  spectrum  from  quarter  car  model  with  ( _ )  100%  and  ( _ )  95%, 

85%,  80%,  75%,  and  50%  suspension  damping,  (b)  corresponding  frequency  spectra  to 
(a)  for  plate  acceleration  at  degree  of  freedom  four,  (c)  force  spectrum  from  quarter  car 

model  with  ( _ )  100%  and  ( _ )  95%,  85%,  80%,  75%,  and  50%  tire  damping,  and  (d) 

corresponding  frequency  spectra  to  (c)  for  plate  acceleration  at  degree  of  freedom  four. 
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3.11  Simulation  of  changes  in  wheel  crossing  location  using  extended  cleat  model 

The  model  that  was  developed  in  Sections  3.8  and  3.9  was  used  in  this  section  to  simulate 
the  effects  of  changes  in  the  wheel  crossing  location  on  the  response  of  the  plate  in  the 
extended  diagnostic  cleat.  Recall  that  the  crossing  location  is  believed  to  have  caused 
some  of  the  variability  that  was  observed  in  the  experimental  data.  Based  on  Figure  42,  it 
was  detennined  that  if  the  wheel  tracks  on  the  opposite  side  as  the  sensor  was  located  on 
the  plate  of  the  extended  diagnostic  plate,  there  would  be  less  variability  introduced  into 
the  measurement.  The  goal  of  this  section  was  to  validate  this  hypothesis  using  the 
simulation  model. 

The  plate  response  in  the  simulation  model  was  calculated  for  a  sensor  positioned  at 
degree  of  freedom  four  and  the  time  response  was  transfonned  into  the  frequency 
domain.  The  simulation  was  carried  out  for  a  wheel  position  along  the  centerline  of  the 
plate  model,  along  the  left  or  right  lines  adjacent  to  the  centerline  of  the  plate,  and  along 
the  left  and  right  edges  of  the  plate  (see  Figure  45).  The  lines  left  of  center  corresponded 
to  locations  on  the  plate  on  the  side  closest  to  the  sensor  degree  of  freedom.  The  lines 
right  of  center  corresponded  to  location  on  the  opposite  side  of  the  plate  as  the  sensor 
degree  of  freedom.  According  to  the  hypothesis  made  using  the  experimental  data, 
variation  in  the  measured  response  of  the  plate  for  the  wheel  cracking  locations  right  of 
center  on  the  plate  would  be  less  than  those  left  of  center  on  the  plate. 

Figure  61(a)  shows  the  acceleration  spectra  for  these  various  simulations  of  the  quarter 
car  model  in  the  baseline  (healthy)  condition.  Figure  61(b)  shows  a  close  up  view  of  the 
second  peak  in  the  acceleration  spectra.  The  following  conclusions  be  drawn  based  on 
these  simulation  results: 

There  was  very  little  change  in  the  acceleration  spectra  near  the  first  mode  of 
vibration  of  the  quarter  car  model  as  a  function  of  the  wheel  crossing  location  on  the 
diagnostic  cleat.  This  trend  was  also  observed  in  the  experimental  data  from  Figure 
16  as  illustrated  in  Figure  62,  where  more  variation  was  observed  above  5  Hz  than 
below  5  Hz.  This  result  together  with  the  result  in  Figure  45  suggested  that  the 
quarter  car  model  correctly  captured  the  source  of  variability  due  to  the  wheel 
crossing  location. 

As  indicated  in  Figure  45,  the  quarter  car  model  simulation  also  verified  that  a  target 
crossing  point  of  the  wheel  that  was  along  the  centerline  of  the  plates  in  the  extended 
diagnostic  cleat  led  to  inherently  large  variations  in  the  measured  response  on  the 
plate  when  the  crossing  point  of  the  wheel  deviated  either  to  the  left  or  right  of  center. 
This  result  suggested  that  the  plates  in  the  extended  diagnostic  cleat  should  indeed  be 
placed  in  a  manner  that  the  centerline  of  the  plate  is  offset  from  the  centerline  of  the 
rubber  cleat  over  which  the  wheel  rolls. 

As  indicated  in  Figure  61(b),  the  variations  in  the  observed  plate  acceleration 
magnitudes  were  larger  when  the  wheel  rolls  down  the  plate  to  the  left  of  center 
(dashed  arrows)  than  to  the  right  of  center  (solid  arrows).  In  other  words,  L1>R1  and 
L2>R2  in  Figure  61(b).  This  result  together  with  the  result  in  Figure  45  suggested 
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that  the  quarter  car  model  correctly  captured  the  trends  in  variability  as  a  function  of 
the  wheel  crossing  location  on  the  extended  diagnostic  cleat. 


Freq  [Hz] 


Figure  61:  Frequency  spectra  for  plate  acceleration  at  degree  of  freedom  four  for  wheel 
crossing  location  down  center  of  plate  (  ).  on  right  and  left  sides  of  center  (  ), 

and  on  right  and  left  edges  of  plate  ( _ , _ )  where  crossing  locations  left  of  center  are 

closer  to  the  sensor  on  the  plate:  (a)  0  to  20  Hz,  and  (b)  close  up  of  second  peak  showing 
differences  in  amplitude  for  different  wheel  crossing  locations. 
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Figure  62:  Frequency  spectra  measured  experimentally  (recall  legend  from  Figure  16) 
with  close  up  view  of  low  frequency  range  indicating  that  there  is  less  variation  in  the 
response  below  5  Hz  than  in  the  response  above  5  Hz  as  reflected  in  the  simulation  data 

in  Figure  61(a). 


To  quantify  how  these  changes  in  the  response  of  the  extended  diagnostic  speed  bump 
plate  affect  the  ability  to  diagnose  faults,  simulations  were  then  conducted  for  four  fault 
conditions  including  20%  reductions  in  the  suspension  and  tire  stiffness  as  well  as  50% 
reductions  in  the  suspension  and  tire  damping  parameters.  The  spectral  responses  were 
found  for  each  of  these  fault  conditions  and  the  baseline  responses  corresponding  to  the 
given  wheel  tracking  location  were  subtracted  from  the  faulty  response.  The  energy  in 
these  difference  spectra  was  then  calculated  (area  under  the  curve)  and  plotted  in  Figure 
63.  Several  interesting  findings  were  extracted  from  this  plot: 

For  all  faults,  the  largest  magnitude  change  in  the  spectral  energy  was  observed  when 
the  wheel  traversed  the  extended  diagnostic  speed  bump  on  the  side  opposite  where 
the  sensor  was  located  (right  of  the  centerline  of  the  plate).  This  result  suggested  that 
the  sensitivity  to  faults  could  be  increased  by  positioning  the  plate  in  the  diagnostic 
cleat  such  that  the  centerline  of  the  plate  was  offset  from  the  wheel  tracking  position 
putting  the  wheel  furthest  from  the  side  of  the  plate  on  which  the  sensor  was  located. 
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The  largest  fault  was  observed  for  a  reduction  in  damping  of  the  tire  followed  by  a 
reduction  in  stiffness  of  the  suspension,  stiffness  of  the  tire,  and  finally  damping  in 
the  suspension.  This  result  suggested  that  it  is  likely  the  tire  pressure  faults  may  be 
introducing  more  of  a  change  in  damping  as  opposed  to  a  change  in  stiffness  resulting 
in  tire  faults  being  detected  using  the  extended  diagnostic  speed  bump. 


Figure  63:  Difference  in  spectral  energy  for  sensor  degree  of  freedom  four  for  quarter  car 
from  0-16  Hz  with  respect  to  the  baseline  energy  for  different  crossing  locations  (center, 
left  of  center,  left  edge,  right  of  center,  and  right  edge)  for  four  types  of  faults  including 

( _ )  20%  loss  of  stiffness  in  suspension,  ( _ )  20%  loss  of  stiffness  in  tire,  (  )  50% 

loss  of  damping  in  suspension,  and  ( _ )  20%  loss  of  damping  in  tire. 
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3.12  Analysis  of  vehicle  response  measured  using  extended  diagnostic  cleat 

The  experimental  results  that  were  presented  in  the  previous  sections  focused  on  the 
analysis  of  measurements  that  were  acquired  from  the  plates  of  the  extended  diagnostic 
cleat.  In  these  previous  results,  the  vehicle  was  tested  with  and  without  faults  in  the  tires 
and  the  dampers  in  order  to  determine  the  effectiveness  of  the  diagnostic  cleat 
measurement  for  detecting  these  faults.  In  this  section,  the  issue  of  the  vehicle  response 
was  considered  to  determine  how  the  vehicle  was  responding  with  and  without  faults. 

Accelerometers  were  installed  on  the  lower  suspension  control  anns  of  each  comer,  and 
the  front  and  rear  wheels  of  the  vehicle  were  driven  over  the  cleat  20  times  at  a  speed  of  5 
mph.  The  measurement  was  triggered  when  one  of  the  accelerometers  on  the  driver  front 
control  ann  reached  a  minimum  acceleration  value  indicated  a  wheel  crossing.  Figure  64 
shows  the  averaged  time  histories  for  the  four  control  arm  acceleration  measurements  in 
the  vertical  direction.  The  front  wheel  crossing  was  evident  in  the  acceleration  data  for 
the  driver  and  passenger  front  control  ann  measurements,  whereas  the  rear  wheel 
crossing  was  most  evident  in  the  data  for  the  driver  and  passenger  rear  control  ann 
measurements.  There  was  some  coupling  between  front  and  rear  but  very  little.  The 
lower  frequency  components  in  the  response  measurements  were  most  evident  towards 
the  end  of  the  respective  time  histories  because  these  motions  possessed  the  lowest 
amounts  of  damping.  It  was  also  evident  that  the  front  control  ann  response 
measurements  contained  a  dominant  mode  of  vibration  that  was  higher  in  frequency  than 
the  dominant  mode  of  vibration  in  the  rear  control  ann  measurements.  This  result 
suggested  that  a  different  mode  of  vibration  of  the  vehicle  was  being  excited  by  the  front 
wheel  crossing  than  the  rear  wheel  crossing. 

Next,  the  damper  on  the  passenger  front  corner  was  disabled  and  the  acceleration 
measurements  on  that  corner  of  the  vehicle  in  the  vertical  direction  were  compared  to  the 
baseline  measurements  without  any  fault  present.  Figure  65  shows  a  comparison  of  the 
responses  that  were  measured  on  the  passenger  front  control  arm  with  and  without 
disabling  the  damper  in  that  corner.  This  figure  indicated  that  the  disabled  damper  led  to 
less  damping  in  the  response  of  the  vehicle.  Note  that  around  1  second  immediately  after 
the  rear  wheels  traversed  the  cleat,  there  was  a  low  amplitude  transient  in  the  response 
that  also  exhibit  a  change  in  the  response  amplitude  due  the  disabled  damper,  albeit  not  as 
large  of  a  change  as  in  the  initial  portion  of  the  response  measurement.  This  result  was 
expected  because  the  relative  motion  across  the  damper  would  be  smaller  in  this  portion 
of  the  response  when  the  passenger  front  comer  was  being  excited  indirectly  after  the 
wheel  wheels  traversed  the  cleat. 
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Figure  64:  Averaged  vertical  response  on  lower  control  arms  of  vehicle  for  20  vehicle 
runs  at  5  mph  (Courtesy  T.  DiPetta,  Purdue  University). 
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Figure  65:  Averaged  vertical  response  on  the  passenger  front  lower  control  arms  of 
vehicle  for  20  vehicle  runs  at  5  mph  with  connected  and  disabled  damper  on  passenger 
front  comer  (Courtesy  T.  DiPetta,  Purdue  University). 
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The  power  spectral  density  functions  corresponding  to  test  runs  of  the  vehicle  with  (10 
runs)  and  without  (10  runs)  the  damper  disabled  were  plotted  in  Figure  66  for  the  vertical 
acceleration  measurements.  These  results  were  consistent  with  the  observed  changes  in 
the  averaged  time  histories  in  Figure  65.  Specifically,  the  spectra  in  Figure  66  exhibited 
a  shift  upward  in  amplitude  for  all  of  the  disabled  damper  datasets  compared  to  the 
connected  damper  datasets.  The  result  was  also  consistent  with  the  result  from  the 
simulation  model  in  Figure  60;  however,  the  experimental  spectra  exhibited  changes  in 
the  low  frequency  peak  and  the  high  frequency  peak,  whereas  the  simulation  result  only 
exhibited  changes  in  the  higher  frequency  peak.  When  the  lateral  and  tracking  direction 
responses  were  instead  analyzed,  the  power  spectral  densities  in  Figure  67  were  obtained. 
Unlike  the  vertical  direction  acceleration  measurements,  the  tracking  and  lateral  direction 
measurements  were  not  as  affected  by  the  disabled  damper. 
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Figure  66:  Power  Spectral  Density  calculated  using  Welch’s  method  for  vertical 
response  on  passenger  front  lower  control  ann  of  vehicle  with  connected  and  disabled 
damper  on  that  corner  of  the  vehicle  (Courtesy  T.  DiPetta,  Purdue  University). 
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Figure  67:  Averaged  tracking  (top)  and  lateral  (bottom)  responses  on  passenger  front 
lower  control  arm  of  vehicle  for  20  vehicle  runs  at  5  mph  with  connected  and  disabled 
damper  on  that  corner  of  the  vehicle  (Courtesy  T.  DiPetta,  Purdue  University). 
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For  comparison  with  the  on-vehicle  sensor  measurements  for  the  connected  and  disabled 
damper,  the  data  from  the  extended  diagnostic  cleat  plates  were  also  analyzed  for  the 
driver  side  (accelerometer  1)  and  passenger  side  (accelerometer  4)  sensors.  Figure  68 
contains  the  plots  of  the  power  spectral  density  functions  for  the  driver  side  (top)  and 
passenger  side  (bottom)  accelerometer  measurements  in  the  lateral  direction  for  disabled 
dampers  in  the  four  different  comers  of  the  vehicle  along  with  the  baseline  (no  fault) 
condition.  There  were  several  interesting  results  noted  in  these  plots: 

First,  for  disabled  dampers  in  the  front  of  the  vehicle,  the  largest  changes  in  the 
response  measurements  that  were  made  using  the  diagnostic  cleat  over  the  whole 
frequency  range  were  observed  in  the  lateral  direction  rather  than  the  vertical 
direction.  This  result  was  initially  thought  to  have  contradicted  the  results  in  Figure 
66  that  were  obtained  using  the  on-vehicle  sensors;  however,  it  was  determined  that  a 
disabled  damper  in  one  comer  would  result  in  larger  vertical  response  in  that  corner, 
more  roll  motion  of  the  front  of  the  vehicle,  and,  hence,  more  lateral  response  on  the 
opposite  comer. 

Second,  for  disabled  dampers  in  the  rear  of  the  vehicle,  the  largest  changes  were 
observed  on  the  same  side  of  the  vehicle  as  the  side  on  which  the  damper  was 
disabled. 
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Figure  68:  Power  Spectral  Density  functions  for  lateral  responses  on  extended  diagnostic 
cleat  for  driver  side  (top)  and  passenger  side  (bottom)  plates  for  20  vehicle  runs  at  5  mph 
with  connected  and  disabled  damper  on  various  corners  of  the  vehicle 

( _ ,  no  fault, _ _ driver  front, _ passenger  front, _ driver  rear,  and  passenger  rear) 

(Courtesy  T.  DiPetta,  Purdue  University). 
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3.13  Final  demonstration  of  diagnostic  speed  bump 

On  June  21  201 1,  a  demonstration  was  performed  at  U.S.  Army  TARDEC  in  Warren, 

MI.  A  briefing  was  also  provided  and  is  attached  to  this  final  report  along  with  a  journal 
paper  that  was  cleared  for  public  release  through  OPSEC  and  has  been  submitted  for 
review.  Both  the  briefing  and  the  demonstration  were  well  received.  Tire  faults  were 
detected  and  located  during  the  demonstration  despite  poor  weather  on  the  day  of  the 
demonstration  in  the  form  of  precipitation.  A  graphical  user  interface  was  used  to  present 
the  results  of  these  demonstrations.  Recommendations  were  made  by  several  individuals 
who  attended  the  demonstration  about  how  the  technology  could  be  further  developed. 
Figure  69(a)  and  (b)  show  photographs  of  the  HI  that  was  used  in  the  demonstration  as 
well  as  individuals  who  observed  the  results  of  the  diagnostic  tests. 


Figure  69:  (a)  Photo  of  HI  driving  over  the  diagnostic  speed  bump  setup  at  U.S.  Army 
TARDEC  and  (b)  photo  of  participants  who  observed  demonstration. 
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Appendix 

%  Analysis  of  extended  diagnostic  speed  bump  data 
%  8/21/2010 
%  DEA 

%  Import  data 

q, 

o 

%  Baseline  1 

%  Baseline  2  after  driver  front  tire  fault 
%  Baseline  3  after  passenger  front  tire  fault 
%  Baseline  4  after  driver  rear  tire  fault 
%  Baseline  5  after  driver  passenger  tire  fault 

q, 

o 

%  Sensors  1  and  3  on  driver  side;  3  closest  to  cleat 
%  Sensors  2  and  4  on  passenger  side;  4  closest  to  cleat 

o, 

o 


%  Generate  time  vector 
t=(0:0. 000332:9034*0. 000332)  '; 

%  Load  baseline  data 

import file ( 'Baselinelst  1 /Acceleration . txt ' )  ; 
basell=data; 
speedbll=speed (data,  t)  ; 
aoadbll=angleofa (data,  t)  ; 

import file ( 'Baselinelst  2 /Acceleration . txt ' )  ; 

basel2=data; 

speedbl2=speed (data,  t)  ; 

aoadbl2=angleof a (data,  t)  ; 

import f ile ( 'Baselinelst  3 /Acceleration . txt ' ) ; 
basel3=data; 
speedbl3=speed (data,  t)  ; 
aoadbl3=angleofa (data,  t)  ; 

import file ( 'Baselinelst  4 /Acceleration . txt ' ) ; 
basel4=data; 
speedbl4=speed (data,  t)  ; 
aoadbl4=angleofa (data,  t)  ; 

import f ile ( 'Baselinelst  5 /Acceleration . txt ' ) ; 
basel5=data; 
speedbl5=speed (data,  t)  ; 
aoadbl5=angleofa (data,  t)  ; 

import file ( 'Baselinelst  6 /Acceleration . txt ' ) ; 

basel6=data; 

speedbl 6=speed (data, t)  ; 

aoadbl 6=angleof a (data,  t)  ; 

import file ('Baselinelst  7/ Acceleration . txt ' ) ; 
basel7=data; 
speedbl7=speed (data, t) ; 
aoadbl7=angleofa (data,  t)  ; 

import f ile ( 'Baselinelst  8 /Acceleration . txt ' ) ; 

basel8=data; 

speedbl8=speed (data,  t)  ; 

aoadbl 8=angleof a (data,  t)  ; 

import file ( 'Baselinelst  9 /Acceleration . txt ' ) ; 
basel9=data; 
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speedbl 9=speed (data, t)  ; 
aoadbl 9=angleof a (data,  t)  ; 

import file ( 'Baselinelst  1 0 /Acceleration . txt ' ) ; 
basellO=data; 
speedbllO=speed (data,  t)  ; 
aoadb!10=angleofa (data,  t)  ; 

import f ile ( 'Baselinelst  1 1 /Acceleration . txt ' ) ; 
baselll=data; 
speedblll=speed (data, t) ; 
aoadblll=angleofa (data,  t)  ; 

import file ( 'Baselinelst  12 /Acceleration . txt ' )  ; 

basell2=data; 

speedbl 12=speed (data, t) ; 

aoadbll2=angleof a (data,  t)  ; 

import file ( 'Baselinelst  13 /Acceleration . txt ' ) ; 
basell3=data; 
speedbll3=speed (data,  t)  ; 
aoadbll3=angleofa (data,  t)  ; 

import file ( 'Baselinelst  14 /Acceleration . txt ' ) ; 
basell4=data; 
speedbll4=speed (data,  t) ; 
aoadbll4=angleofa (data,  t)  ; 

import file ( 'Baselinelst  15 /Acceleration . txt ' ) ; 

basell5=data; 

speedbll5=speed (data,  t)  ; 

aoadbll5=angleof a (data,  t)  ; 

import file ('Baselinelst  1 6 /Acceleration . txt ' ) ; 
basell6=data; 
speedbll6=speed (data,  t)  ; 
aoadbll6=angleofa (data,  t)  ; 

import file ('Baselinelst  17/ Acceleration . txt ' ) ; 

basell7=data; 

speedbll7=speed (data,  t)  ; 

aoadbll7=angleof a (data,  t)  ; 

import file ( 'Baselinelst  1 8 /Acceleration . txt ' )  ; 

basell8=data; 

speedbl 1 8=speed (data, t) ; 

aoadbll8=angleofa (data,  t)  ; 

import file ('Baselinelst  1 9 /Acceleration . txt ' ) ; 
basell9=data; 
speedbll9=speed (data,  t)  ; 
aoadbll9=angleofa (data,  t)  ; 

import f ile ( 'Baselinelst  2 0 /Acceleration . txt ' ) ; 

basel20=data; 

speedbl20=speed (data,  t)  ; 

aoadbl20=angleof a (data,  t)  ; 

import file ( 'Baselinelst  2 1 /Acceleration . txt ' ) ; 

basel21=data; 

speedbl21=speed (data,  t)  ; 

aoadbl2 l=angleof a (data,  t)  ; 

import file ( 'Baselinelst  22 /Acceleration . txt ' )  ; 

basel22=data; 

speedbl22=speed (data, t) ; 

aoadbl22=angleof a (data,  t)  ; 

import file ( 'Baselinelst  2 3 /Acceleration . txt ' ) ; 

basel23=data; 

speedbl23=speed (data,  t)  ; 
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aoadbl23=angleof a (data,  t)  ; 

import file ( 'Baselinelst  2 4 /Acceleration . txt ' ) ; 

basel24=data; 

speedbl24=speed (data,  t) ; 

aoadb!24=angleof a (data,  t)  ; 

import file ( 'Baselinelst  2 5 /Acceleration . txt ' )  ; 
basel25=data; 
speedbl25=speed (data, t) ; 
aoadb!25=angleofa (data,  t)  ; 

import file ('Baselinelst  2 6 /Acceleration . txt ' ) ; 

basel26=data; 

speedbl2 6=speed (data, t)  ; 

aoadb!2 6=angleof a (data,  t)  ; 

import file ('Baselinelst  27/ Acceleration . txt ' ) ; 
basel27=data; 
speedbl27=speed (data,  t)  ; 
aoadb!27=angleofa (data,  t)  ; 

import file ( 'Baselinelst  2 8 /Acceleration . txt ' ) ; 

basel28=data; 

speedbl2 8=speed (data,  t)  ; 

aoadb!2 8=angleof a (data,  t)  ; 

import file ('Baselinelst  2 9 /Acceleration . txt ' ) ; 

basel29=data; 

speedbl2 9=speed (data, t) ; 

aoadb!2 9=angleof a (data,  t)  ; 

import file ( 'Baselinelst  30 /Acceleration . txt ' ) ; 
basel30=data; 
speedbl30=speed (data,  t)  ; 
aoadb!30=angleofa (data,  t)  ; 

import file ('Baseline2nd  1/ Acceleration . txt ' ) ; 
base21=data; 
speedb21=speed (data,  t)  ; 
aoadb21=angleofa (data,  t)  ; 

import file ( 'Baseline2nd  2 /Acceleration . txt ' ) ; 

base22=data; 

speedb22=speed (data,  t)  ; 

aoadb22=angleof a (data,  t)  ; 

import f ile ( 'Baseline2nd  3 /Acceleration . txt ' ) ; 
base23=data; 
speedb23=speed (data,  t)  ; 
aoadb23=angleofa (data,  t)  ; 

import file ('Baseline2nd  4/ Acceleration . txt ' ) ; 
base24=data; 
speedb24=speed (data,  t) ; 
aoadb24=angleofa (data,  t)  ; 

import f ile ( 'Baseline2nd  5 /Acceleration . txt ' ) ; 
base25=data; 
speedb25=speed (data,  t)  ; 
aoadb25=angleofa (data,  t)  ; 

import file ( 'Baseline2nd  6 /Acceleration . txt ' ) ; 

base26=data; 

speedb2 6=speed (data, t) ; 

aoadb2 6=angleof a (data,  t)  ; 

import f ile ('Baseline2nd  7/ Acceleration . txt ' ) ; 

base27=data; 

speedb27=speed (data,  t)  ; 
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aoadb27=angleofa (data,  t)  ; 

import f ile ('Baseline2nd  8/ Acceleration . txt ' ) ; 

base28=data; 

speedb2 8=speed (data, t)  ; 

aoadb2 8=angleof a (data,  t)  ; 

import file ( 'Baseline2nd  9 /Acceleration . txt ' ) ; 

base29=data; 

speedb2 9=speed (data, t) ; 

aoadb2 9=angleof a (data,  t)  ; 

import file ('Baseline2nd  1 0 /Acceleration . txt ' ) ; 
base210=data; 
speedb210=speed (data,  t)  ; 
aoadb210=angleofa (data,  t)  ; 

import file ('Baseline2nd  11/ Acceleration . txt ' ) ; 
base211=data; 
speedb211=speed (data,  t)  ; 
aoadb211=angleofa (data,  t)  ; 

import file ('Baseline3rd  1/ Acceleration . txt ' ) ; 

base31=data; 

speedb31=speed (data,  t)  ; 

aoadb31=angleof a (data,  t)  ; 

import file ('Baseline3rd  2/ Acceleration . txt ' ) ; 

base32=data; 

speedb32=speed (data,  t)  ; 

aoadb32=angleof a (data,  t)  ; 

import f ile ( 'Baseline3rd  3 /Acceleration . txt ' ) ; 

base33=data; 

speedb33=speed (data,  t)  ; 

aoadb33=angleof a (data,  t)  ; 

import file ('Baseline3rd  4/ Acceleration . txt ' ) ; 

base34=data; 

speedb34=speed (data,  t)  ; 

aoadb34=angleof a (data,  t)  ; 

import file ( 'Baseline3rd  5 /Acceleration . txt ' ) ; 

base35=data; 

speedb35=speed (data, t) ; 

aoadb35=angleof a (data,  t)  ; 

import f ile ( 'Baseline3rd  6 /Acceleration . txt ' ) ; 
base36=data; 
speedb36=speed (data,  t)  ; 
aoadb36=angleofa (data,  t)  ; 

import file ('Baseline3rd  7/ Acceleration . txt ' ) ; 

base37=data; 

speedb37=speed (data,  t)  ; 

aoadb37=angleof a (data,  t)  ; 

import f ile ('Baseline3rd  8/ Acceleration . txt ' ) ; 
base38=data; 
speedb38=speed (data,  t)  ; 
aoadb38=angleofa (data,  t)  ; 

import file ( 'Baseline 3rd  9 /Acceleration . txt ' ) ; 
base39=data; 
speedb39=speed (data,  t)  ; 
aoadb39=angleofa (data,  t)  ; 

import file ('Baseline 3rd  1 0 /Acceleration . txt ' ) ; 

base310=data; 

speedb310=speed (data,  t)  ; 
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aoadb310=angleof a (data,  t)  ; 

import file ('Baseline3rd  11/ Acceleration . txt ' ) ; 

base311=data; 

speedb311=speed (data,  t)  ; 

aoadb31 l=angleof a (data,  t)  ; 

import f ile ('Baseline4th  1/ Acceleration . txt ' ) ; 

base41=data; 

speedb4 l=speed (data,  t)  ; 

aoadb4 l=angleof a (data,  t)  ; 

import file ('Baseline4th  2/ Acceleration . txt ' ) ; 

base42=data; 

speedb42=speed (data,  t)  ; 

aoadb42=angleof a (data,  t)  ; 

import file ( 'Baseline4th  3 /Acceleration . txt ' ) ; 
base43=data; 
speedb43=speed (data,  t)  ; 
aoadb43=angleofa (data,  t)  ; 

import file ('Baseline4th  4/ Acceleration . txt ' ) ; 
base44=data; 
speedb44=speed (data,  t)  ; 
aoadb44=angleofa (data,  t)  ; 

import file ( 'Baseline4th  5 /Acceleration . txt 1 ) ; 
base45=data; 
speedb45=speed (data,  t)  ; 
aoadb45=angleofa (data,  t)  ; 

import f ile ( 'Baseline4th  6 /Acceleration . txt ' ) ; 

base46=data; 

speedb4 6=speed (data,  t)  ; 

aoadb4 6=angleof a (data,  t)  ; 

import file ('Baseline4th  7/ Acceleration . txt ' ) ; 
base47=data; 
speedb47=speed (data,  t)  ; 
aoadb47=angleofa (data,  t)  ; 

import f ile ('Baseline4th  8/ Acceleration . txt ' ) ; 

base48=data; 

speedb4 8=speed (data,  t)  ; 

aoadb4 8=angleof a (data,  t)  ; 

import f ile ( 'Baseline4th  9 /Acceleration . txt ' ) ; 

base49=data; 

speedb4 9=speed (data, t)  ; 

aoadb4 9=angleof a (data,  t)  ; 

import file ('Baseline4th  10/ Acceleration . txt ' ) ; 
base410=data; 
speedb410=speed (data,  t)  ; 
aoadb410=angleofa (data,  t)  ; 

import file ('Baseline4th  11/ Acceleration . txt ' ) ; 

base411=data; 

speedb411=speed (data,  t)  ; 

aoadb4 1 l=angleof a (data,  t)  ; 

import file ('Baseline5th  1/ Acceleration . txt ' ) ; 
base51=data; 
speedb51=speed (data,  t)  ; 
aoadb51=angleofa (data,  t)  ; 

import f ile ( 'Baseline5th  2 /Acceleration . txt ' ) ; 
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base52=data; 
speedb52=speed (data,  t)  ; 
aoadb52=angleof a (data,  t)  ; 

import file ( 'Baseline5th  3 /Acceleration . txt ' )  ; 

base53=data; 

speedb53=speed (data,  t)  ; 

aoadb53=angleof a (data,  t)  ; 

import f ile ('Baseline5th  4/ Acceleration . txt ' ) ; 

base54=data; 

speedb54=speed (data,  t)  ; 

aoadb54=angleof a (data,  t)  ; 

import f ile ( 'Baseline5th  5 /Acceleration . txt ' ) ; 

base55=data; 

speedb55=speed (data, t) ; 

aoadb55=angleof a (data,  t)  ; 

import file ( 'Baseline5th  6 /Acceleration . txt ' )  ; 
base56=data; 
speedb56=speed (data,  t)  ; 
aoadb56=angleofa (data,  t)  ; 

import file ('Baseline5th  7/ Acceleration . txt ' ) ; 

base57=data; 

speedb57=speed (data,  t)  ; 

aoadb57=angleof a (data,  t)  ; 

import file ('Baseline5th  8/ Acceleration . txt ' ) ; 
base58=data; 
speedb58=speed (data,  t)  ; 
aoadb58=angleofa (data,  t)  ; 

import file ( 'Baseline5th  9 /Acceleration . txt ' ) ; 
base59=data; 
speedb59=speed (data, t) ; 
aoadb59=angleofa (data,  t)  ; 

import file ('Baseline5th  10/ Acceleration . txt ' ) ; 

base510=data; 

speedb510=speed (data,  t)  ; 

aoadb510=angleof a (data,  t)  ; 

import file ('Baseline5th  11/ Acceleration . txt ' ) ; 

base511=data; 

speedb511=speed (data,  t)  ; 

aoadb511=angleof a (data,  t)  ; 

%  Analyze  spectra 

%  Set  range  of  time  points  to  analyze  for 
%  Front  axle 

f sti=401 ; 
feni=3740; 

%  Rear  axle 
bsti=374 1 ; 

beni=3741+ (feni-fsti) ; 

%  Define  frequency  vector  for  length  of  time  points  considered 
f=(0:l/t(feni-fsti  +  l)  :  (feni-fsti)/t(feni-fsti  +  l)) 

%  Set  sensor  channels  to  analyze 
Nchd=9 ; 
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Nchp=12 ; 

%  Set  frequency  range  to  analyze 
%f rng= [round ( 1+5/f (2 ) ) : round ( 1+15/f (2 ) ) 

%round (1  +  60/f (2) )  : round ( 1  +  80 /f (2 ) )  round (1  +  95/f (2) )  : round (1  +  110/f (2)  )  ]  ; 
%f rng= [round ( 1+2 /f (2 ) ) : round (1+200/f (2) ) ] ; 

%f rng= [round (1+30/f (2) ) : round ( 1+40/f (2 ) ) 

%round (1+60/f (2) ) : round ( 1+80/f (2 ) )  round (1+95/f (2)): round (1+110/f (2) ) ] ; 
%f rng= [round (1  +  10/f (2)  )  : round (1  +  60/f (2) ) ] ; 

%frng= [round (1+25/f (2) ) : round (1+35/f (2) ) ] ; 


%  Set  type  of  window  to  use  in  analysis 
%wind=hanning ( feni-f sti  +  1 )  ; 
wind=ones ( feni-f sti  +  1 ,  1 )  ; 


%  Calculate  spectra  for  driver  side 
basellsf=fft (base 11 (fsti : feni, Nchd) 
ba sells r=fft (basell (bsti :beni, Nchd) 
basel2sf=fft (base 12 (fsti : feni, Nchd) 
basel2sr=f f t (base 12 (bsti : beni , Nchd) 
basel3sf=fft (base 13 (fsti : feni, Nchd) 
basel3sr=fft (base 13 (bsti :beni, Nchd) 
basel4sf=fft (base 14 (fsti : feni, Nchd) 
basel4sr=fft (base 14 (bsti :beni, Nchd) 
basel5sf=fft (base 15 (fsti : feni, Nchd) 
basel5sr=fft (basel5 (bsti: beni , Nchd) 
basel 6sf =f f t (basel 6 ( f sti : feni , Nchd) 
basel6sr=fft (basel 6 (bsti: beni , Nchd) 
basel7sf=fft (base 17 (fsti : feni, Nchd) 
basel7sr=f f t (base 17 (bsti : beni , Nchd) 
basel8sf=fft (base 18 (fsti : feni, Nchd) 
basel8sr=fft (base 18 (bsti :beni, Nchd) 
basel9sf=fft (basel9 (fsti:feni, Nchd) 
basel 9s r=fft (basel 9 (bsti: beni , Nchd) 
basel 10sf=f ft (basel 10 (fsti : feni, Nchd) 
basell0sr=fft (basellO (bsti :beni, Nchd) 
basel llsf=f ft (basel 11 (fsti : feni, Nchd) 
basel llsr=f ft (basel 11 (bsti :beni, Nchd) 
basell2sf=fft (basel 12 (fsti : feni, Nchd) 
basell2sr=fft (basel 12 (bsti :beni, Nchd) 
basel 13sf=f ft (basel 13 (fsti : feni, Nchd) 
basell3sr=fft (basel 13 (bsti :beni, Nchd) 
basell4sf=fft (basel 14 (fsti : feni, Nchd) 
basell4sr=fft (basel 14 (bsti :beni, Nchd) 
basel 15sf=f ft (basel 15 (fsti : feni, Nchd) 
basell5sr=fft (basell5 (bsti :beni, Nchd) 
basel 1 6sf=f ft (basel 16 (fsti : feni, Nchd) 
basell6sr=fft (basell6 (bsti: beni , Nchd) 
basell7sf=fft (basel 17 (fsti : feni, Nchd) 
basell7sr=fft (basel 17 (bsti :beni, Nchd) 
basell8sf=fft (basel 18 (fsti : feni, Nchd) 
basell8sr=fft (basel 18 (bsti :beni, Nchd) 
basell9sf=fft (basell9 (fsti:feni, Nchd) 
basel 1 9sr=f f t (basel 19 (bsti :beni, Nchd) 
basel20sf=f ft (basel 20 (fsti : feni, Nchd) 
basel20sr=f ft (basel 20 (bsti :beni, Nchd) 


baseline 

*wind) / ( feni-f sti+1 ) *2; 
*wind) / (beni-bsti+1 ) *2; 
*wind) / ( feni-f sti+1 ) *2; 
*wind) / (beni-bsti+1) *2; 
*wind) / ( feni-f sti+1 ) *2; 
*wind) / (beni-bsti+1) *2; 
*wind) / ( feni-f sti+1 ) *2; 
*wind) / (beni-bsti+1) *2; 
*wind) / ( feni-f sti+1 ) *2; 
*wind) / (beni-bsti+1) *2; 
*wind) / ( feni-f sti+1 ) *2; 
*wind) / (beni-bsti+1) *2; 
*wind) / ( feni-f sti+1 ) *2; 
*wind) / (beni-bsti+1) *2; 
*wind) / ( feni-f sti+1 ) *2; 
*wind) / (beni-bsti+1) *2; 
*wind) / ( feni-f sti+1 ) *2; 
*wind) / (beni-bsti+1) *2; 
*wind) / ( feni-f sti+1 ) *2 
*wind) / (beni-bsti+1) *2 
*wind) / ( feni-f sti+1 ) *2 
*wind) / (beni-bsti+1) *2 
*wind) / ( feni-f sti+1 ) *2 
*wind) / (beni-bsti+1) *2 
*wind) / ( feni-f sti+1 ) *2 
*wind) / (beni-bsti+1) *2 
*wind) / ( feni-f sti+1 ) *2 
*wind) / (beni-bsti+1) *2 
*wind) / ( feni-f sti+1 ) *2 
*wind) / (beni-bsti+1) *2 
*wind) / ( feni-f sti+1 ) *2 
*wind) / (beni-bsti+1) *2 
*wind) / ( feni-f sti+1 ) *2 
*wind) / (beni-bsti+1) *2 
*wind) / ( feni-f sti+1 ) *2 
*wind) / (beni-bsti+1) *2 
*wind) / ( feni-f sti+1 ) *2 
*wind) / (beni-bsti+1) *2 
*wind) / ( feni-f sti+1 ) *2 
*wind) / (beni-bsti+1) *2 
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basel21sf=f ft (basel21 (fsti : feni 
basel21sr=f f t (basel21 (bsti :beni 
basel22sf=f f t (basel22 (fsti : feni 
basel22sr=f ft (basel22 (bsti :beni 
base!23sf=f f t (base!23 (fsti : feni 
basel23sr=f f t (basel23 (bsti :beni 
basel24sf=f f t (basel24 (fsti : feni 
basel24sr=f f t (basel24 (bsti :beni 
basel25sf=f ft (basel25 (fsti : feni 
base!25sr=f f t (base!25 (bsti :beni 
base 12  6sf=f f t (base 12  6 ( fsti : feni 
base 12  6sr=f f t (base 12  6 (bsti : beni 
basel27sf=fft (basel27 (fsti : feni 
basel27sr=fft (basel27 (bsti :beni 
basel28sf=fft (basel28 (fsti : feni 
basel28sr=f ft (basel28 (bsti :beni 
base 12  9sf=f f t (base 12  9 ( fsti : feni 
base 12  9sr=f f t (base 12  9 (bsti : beni 
basel30sf=fft(basel30 (fsti: feni 
basel30sr=fft (basel30 (bsti :beni 


,Nchd) . *wind)/ (feni-f sti+1 ) *2 ; 
, Nchd) . *wind) / (beni-bsti+1 ) *2 ; 
, Nchd)  . *wind) / ( feni-f sti+1 ) *2  ; 
, Nchd)  . *wind) / (beni-bsti  +  1 ) *2  ; 
, Nchd) . *wind) / ( feni-f sti+1 ) *2 ; 
,Nchd)  . *wind)/ (beni-bsti  +  1 ) *2  ; 
, Nchd)  . *wind) / ( feni-f sti+1 ) *2  ; 
, Nchd)  . *wind) / (beni-bsti  +  1 ) *2  ; 
, Nchd) . *wind) / ( feni-f sti+1 ) *2 ; 
,Nchd)  . *wind)/ (beni-bsti  +  1 ) *2  ; 
,Nchd)  . *wind)/ (feni-f sti+1) *2 ; 
, Nchd) . *wind) / (beni-bsti+1 ) *2 ; 
, Nchd) . *wind) / ( feni-f sti+1 ) *2 ; 
,Nchd)  . *wind)/ (beni-bsti  +  1 ) *2  ; 
,Nchd) . *wind)/ ( feni-f sti+1 ) *2 ; 
,Nchd)  . *wind)/ (beni-bsti  +  1 ) *2  ; 
, Nchd)  . *wind) / ( feni-f sti+1 ) *2  ; 
, Nchd)  . *wind) / (beni-bsti  +  1 ) *2  ; 
, Nchd) . *wind) / ( feni-f sti+1 ) *2 ; 
,Nchd) . *wind)/ (beni-bsti+1 ) *2; 


base21sf=fft (base21 (fsti 
base21sr=fft (base21 (bsti 
base22sf=fft (base22 (fsti 
base22sr=fft (base22 (bsti 
base23sf=fft (base23 (fsti 
base23sr=fft (base23 (bsti 
base24sf=fft (base24 (fsti 
base24sr=fft (base24 (bsti 
base25sf=fft (base25 (fsti 
base25sr=fft (base25 (bsti 
base26sf=fft (base26 (fsti 
base26sr=fft (base26 (bsti 
base27sf=fft (base27 (fsti 
base27sr=fft (base27 (bsti 
base28sf=fft (base28 (fsti 
base28sr=fft (base28 (bsti 
base29sf=fft (base29 (fsti 
base29sr=fft (base29 (bsti 
base210sf=fft (base210 (fst 
base210sr=fft (base210 (bst 
base211sf=fft (base211 (fst 
base211sr=f ft (base211 (bst 


feni , Nchd) 

*wind) / 

beni , Nchd) 

*wind) / 

feni , Nchd) 

*wind) / 

beni , Nchd) 

*wind) / 

feni , Nchd) 

*wind) / 

beni , Nchd) 

*wind) / 

feni , Nchd) 

*wind) / 

beni , Nchd) 

*wind) / 

feni , Nchd) 

*wind) / 

beni , Nchd) 

*wind) / 

feni , Nchd) 

*wind) / 

beni , Nchd) 

*wind) / 

feni , Nchd) 

*wind) / 

beni , Nchd) 

*wind) / 

feni , Nchd) 

*wind) / 

beni , Nchd) 

*wind) / 

feni , Nchd) 

*wind) / 

beni , Nchd) 

*wind) / 

i  :  f eni , Nchd)  . *wind) / ( fen 
i : beni ,  Nchd)  . *wind) / (ben 
i : f eni ,  Nchd)  . *wind) / ( fen 
i:beni,Nchd) .*wind) / (ben 


f  sti  + 
bsti  + 
f  sti  + 
bsti  + 
f  sti  + 
bsti  + 
f  sti  + 
bsti  + 
f  sti  + 
bsti  + 
f  sti  + 
bsti  + 
f  sti  + 
bsti  + 
f  sti  + 
bsti  + 
f  sti  + 
bsti  + 
i-f  st 
i-bst 
i-f  st 
i-bst 


1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
1)  *2 
i+1) 
i  +  1 ) 
i  +  1) 
i  +  1) 


*2; 

*2; 

*2; 

*2; 


ba 

se 

31 

sf= 

=fft 

(ba 

se 

31 

(fsti 

:  feni 

ba 

se 

31 

sr= 

=fft 

(ba 

se 

31 

(bsti 

:  beni 

ba 

se 

32 

sf= 

=fft 

(ba 

se 

32 

(fsti 

:  feni 

ba 

se 

32 

sr= 

=fft 

(ba 

se 

32 

(bsti 

:  beni 

ba 

se 

33 

sf= 

=fft 

(ba 

se 

33 

(fsti 

:  feni 

ba 

se 

33 

sr= 

=fft 

(ba 

se 

33 

(bsti 

:  beni 

ba 

se 

34 

sf= 

-P 

M-l 

4-4 

(ba 

se 

34 

(fsti 

:  feni 

ba 

se 

34 

sr= 

=fft 

(ba 

se 

34 

(bsti 

:  beni 

ba 

se 

35 

sf= 

=fft 

(ba 

se 

35 

(fsti 

:  feni 

ba 

se 

35 

sr= 

=fft 

(ba 

se 

35 

(bsti 

:  beni 

ba 

se 

36 

sf= 

=fft 

(ba 

se 

36 

(fsti 

:  feni 

ba 

se 

36 

sr= 

=fft 

(ba 

se 

36 

(bsti 

:  beni 

,Nchd)  . *wind)/ (feni-f sti  +  1 ) *2  ; 
, Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
,Nchd)  . *wind)/ (feni-f sti+1) *2 ; 
,Nchd)  . *wind)/ (beni-bsti  +  1 ) *2 ; 
, Nchd) . *wind) / ( feni-f sti+1 ) *2 ; 
,Nchd)  . *wind)/ (beni-bsti  +  1 ) *2  ; 
,Nchd)  . *wind)/ (feni-f sti+1 ) *2  ; 
,Nchd) . *wind)/ (beni-bsti+1 ) *2 ; 
,Nchd) . *wind)/ (feni-f sti+1) *2 ; 
, Nchd)  . *wind) / (beni-bsti  +  1 ) *2  ; 
,Nchd)  . *wind)/ (feni-f sti+1) *2  ; 
,Nchd) . *wind)/ (beni-bsti+1 ) *2; 
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base37sf =f f t (base 3 7 ( f sti : f eni , Nchd) . *wind) / ( f eni-f sti+1 )  *2 ; 
base37sr=f f t (base 3 7 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
base38sf =f f t (base 3 8 ( f sti : f eni , Nchd) . *wind) / ( feni-f sti+1 ) *2 ; 
base38sr=f f t (base 3 8 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
base39sf =f f t (base 3 9 ( f sti : f eni , Nchd) . *wind) / ( f eni-f sti+1 )  *2 ; 
base39sr=f ft (base39 (bsti :beni, Nchd) . *wind)/ (beni-bsti+1 ) *2 ; 
base310sf=f f t (base310 ( f sti : f eni , Nchd) . *wind) / ( f eni-f sti+1 ) *2; 
base310sr=f f t (base310 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
base 31 lsf =f f t (base 31 1 ( f sti : f eni , Nchd) . *wind) / ( f eni-f sti+1 )  *2 ; 
base 31 lsr=f f t (base 31 1 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 


base41sf=fft (base41 
base41sr=fft (base41 
base42sf=fft (base42 
base42sr=fft (base42 
base43sf=fft (base43 
base43sr=fft (base43 
base44sf=fft (base44 
base44sr=fft (base44 
base45sf=fft (base45 
base45sr=fft (base45 
base46sf=fft (base46 
base46sr=fft (base46 
base47sf=fft (base47 
base47sr=fft (base47 
base48sf=fft (base48 
base48sr=fft (base48 
base49sf=fft (base49 
base49sr=fft (base49 
base410sf=fft (base4 
base410sr=fft (base4 
base411sf=fft (base4 
base411sr=f ft (base4 


( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
10 ( f sti : f eni , Nchd) 
10 (bsti : beni , Nchd) 
11  ( f sti : f eni , Nchd) 
11 (bsti : beni , Nchd) 


wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
,*wind) / ( feni-f sti+1 ) *2; 
,*wind) / (beni-bsti+1) *2; 
,*wind) / ( feni-f sti+1 ) *2; 
. *wind) / (beni-bsti+1 ) *2 ; 


base51sf=fft (base51 
base51sr=fft (base51 
base52sf=fft (base52 
base52sr=fft (base52 
base53sf=f ft (base53 
base53sr=f ft (base53 
base54sf=fft (base54 
base54sr=fft (base54 
base55sf=f ft (base55 
base55sr=f ft (base55 
base56sf=fft (base56 
base56sr=fft (base56 
base57sf=fft (base57 
base57sr=fft (base57 
base58sf=fft (base58 
base58sr=fft (base58 
base59sf=fft (base59 
base59sr=fft (base59 
base510sf=f ft (base5 
base510sr=f f t (base5 
base511sf=fft (base5 
base511sr=f f t (base5 


( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 
( f sti : f eni , Nchd)  .* 
(bsti : beni , Nchd) .* 

10  ( f sti : f eni , Nchd) 
10 (bsti : beni , Nchd) 

11  ( f sti : f eni , Nchd) 
11  (bsti : beni , Nchd) 


wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
,*wind) / ( feni-f sti+1 ) *2; 
,*wind) / (beni-bsti+1) *2; 
,*wind) / ( feni-f sti+1 ) *2; 
,*wind) / (beni-bsti+1) *2; 
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%  Calculate  spectra  for  passenger  side 


basellsfp=fft (basell 
basellsrp=fft (basell 
basel2sfp=f ft (basel2 
basel2srp=f ft (basel2 
basel3sfp=f ft (basel3 
basel3srp=f ft (basel3 
basel4sfp=f ft (basel4 
basel4srp=f ft (basel4 
basel5sfp=f ft (basel5 
basel5srp=f ft (basel5 
basel 6sfp=f f t (basel6 
basel 6srp=f f t (basel6 
basel7sfp=fft (basel7 
basel7srp=fft (basel7 
basel8sfp=fft (basel8 
basel8srp=f ft (basel8 
basel 9sfp=f ft (basel9 
basel 9srp=f ft (basel9 
basellOsfp=fft (basel 
basellOsrp=fft (basel 
baselllsfp=fft (basel 
baselllsrp=fft (basel 
basell2sfp=fft (basel 
basell2srp=fft (basel 
basell3sfp=fft (basel 
basell3srp=f ft (basel 
basell4sfp=fft (basel 
basell4srp=fft (basel 
basell5sfp=fft (basel 
basell5srp=fft (basel 
basel 1 6sfp=f ft (basel 
basel 1 6srp=f ft (basel 
basell7sfp=fft (basel 
basell7srp=fft (basel 
basell8sfp=fft (basel 
basell8srp=fft (basel 
basell9sfp=fft (basel 
basel 1 9srp=f ft (basel 
basel20sfp=f ft (basel 
basel20srp=f ft (basel20 
basel21sfp=fft (basel21 
basel21srp=f ft (basel21 
basel22sfp=f ft (basel22 
basel22srp=f ft (basel22 
basel23sfp=f ft (basel23 
basel23srp=f ft (basel23 
basel24sfp=f ft (basel24 
basel24srp=f ft (basel24 
basel25sfp=f ft (basel25 
basel25srp=f ft (basel25 
basel2 6sfp=f f t (basel26 
basel2 6srp=f f t (basel26 
basel27sfp=fft (basel27 
basel27srp=fft (basel27 
basel28sfp=fft (basel28 


( f sti : feni , Nchp) .* 
(bsti : beni , Nchp) .* 
( f sti : feni , Nchp) .* 
(bsti : beni , Nchp) .* 
( f sti : feni , Nchp) .* 
(bsti : beni , Nchp) .* 
( f sti : feni , Nchp) .* 
(bsti : beni , Nchp) .* 
( f sti : feni , Nchp) .* 
(bsti : beni , Nchp) .* 
( f sti : feni , Nchp) .* 
(bsti : beni , Nchp) .* 
( f sti : feni , Nchp) .* 
(bsti : beni , Nchp) .* 
( f sti : feni , Nchp) .* 
(bsti : beni , Nchp) .* 
( f sti : feni , Nchp) .* 
(bsti : beni , Nchp) .* 
10 ( f sti : feni , Nchp) 
10 (bsti : beni , Nchp) 
11 ( f sti : feni , Nchp) 
11 (bsti : beni , Nchp) 
12 ( f sti : feni , Nchp) 
12 (bsti : beni , Nchp) 
13 (f sti : feni, Nchp) 
13 (bsti :beni, Nchp) 
14 ( f sti : feni , Nchp) 
14 (bsti : beni , Nchp) 
15 (f sti : feni, Nchp) 
15 (bsti :beni, Nchp) 
16 ( f sti : feni , Nchp) 
16 (bsti : beni , Nchp) 
17 ( f sti : feni , Nchp) 
17 (bsti : beni , Nchp) 

18  ( f sti : feni , Nchp) 
18 (bsti : beni , Nchp) 

19  ( f sti : feni , Nchp) 

19  (bsti : beni , Nchp) 

20  ( f sti : feni , Nchp) 
(bsti : beni , Nchp) 
( f sti : feni , Nchp) 
(bsti : beni , Nchp) 
( f sti : feni , Nchp) 
(bsti : beni , Nchp) 
( f sti : feni , Nchp) 
(bsti : beni , Nchp) 
( f sti : feni , Nchp) 
(bsti : beni , Nchp) 
( f sti : feni , Nchp) 
(bsti : beni , Nchp) 
( f sti : feni , Nchp) 
(bsti : beni , Nchp) 
( f sti : feni , Nchp) 
(bsti : beni , Nchp) 
( f sti : feni , Nchp) 


wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1 ) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 


*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 

*wind) 

/ 

(beni-bsti+1 ) 

*2 

*wind) 

/ 

( feni-f sti  +  1 ) 

*2 
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base 12  8srp=f f t (basel2  8 (bsti : beni , Nchp)  . *wind) / (beni-bsti  +  1 )  *2 ; 
base 12  9sfp=f f t (base 12  9 ( f sti : feni , Nchp)  . *wind) / ( feni-f sti+1 ) *2 ; 
base 12  9srp=f f t (base 12  9 (bsti : beni , Nchp)  . *wind) / (beni-bsti  +  1 )  *2 ; 
basel30sfp=f f t (basel30 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
basel30srp=f f t (basel30 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 

base2 lsfp=f f t (base2 1 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
base2 lsrp=f f t (base2 1 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
base22sfp=f f t (base22 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
base22srp=f f t (base22 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
base23sfp=f f t (base23 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
base23srp=f f t (base23 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
base24sfp=f f t (base24 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
base24srp=f f t (base24 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
base25sfp=f f t (base25 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
base25srp=f f t (base25 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
base2  6sfp=f f t (base2  6 ( f sti : feni , Nchp)  . *wind) / ( feni-f sti  +  1 )  *2 ; 
base2  6srp=f f t (base2  6 (bsti : beni , Nchp)  . *wind) / (beni-bsti  +  1 )  *2 ; 
base27sfp=f f t (base27 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
base27srp=f f t (base27 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
base2  8sfp=f f t (base2  8 ( f sti : feni , Nchp)  . *wind) / ( feni-f sti  +  1 )  *2 ; 
base2  8srp=f f t (base2  8 (bsti : beni , Nchp)  . *wind) / (beni-bsti  +  1 )*2; 
base2  9sfp=f f t (base2  9 ( f sti : feni , Nchp)  . *wind) / ( feni-f sti  +  1 )*2; 
base2  9srp=f f t (base2  9 (bsti : beni , Nchp)  . *wind) / (beni-bsti  +  1 )*2; 
base2 10sfp=f f t (base210 ( f sti : feni , Nchp) . *wind) / (feni-fsti+l)*2; 
base2 10srp=f f t (base2 10 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
base2 llsfp=f f t (base21 1 ( f sti : feni , Nchp) . *wind) / (feni-fsti+l)*2; 
base2 1 lsrp=f f t (base2 11 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 

base31sfp=f f t (base 31 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
base31srp=f f t (base 31 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
base32sfp=f f t (base 3 2 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 ) *2 ; 
base32srp=f f t (base 3 2 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 ) *2 ; 
base33sfp=f f t (base 3 3 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
base33srp=f f t (base 3 3 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
base34sfp=f f t (base 3 4 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
base34srp=f f t (base 3 4 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 ) *2 ; 
base35sfp=f f t (base 3 5 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
base35srp=f f t (base 3 5 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
base36sfp=f f t (base 3 6 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
base36srp=f f t (base 3 6 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
base37sfp=f f t (base 3 7 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
base37srp=f f t (base 3 7 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
base38sfp=f f t (base 3 8 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
base38srp=f f t (base 3 8 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
base39sfp=f f t (base 3 9 ( f sti : feni , Nchp) . *wind) / (feni-fsti+1) *2; 
base39srp=f f t (base 3 9 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
base310sfp=f f t (base310 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
base310srp=f f t (base310 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
base 31 lsfp=f f t (base 31 1 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
base311srp=f f t (base 31 1 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 

base 4 lsfp=f f t (base 4 1 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
base 4 lsrp=f f t (base 41 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
base42sfp=f f t (base 4 2 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
base42srp=f f t (base 4 2 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 ) *2 ; 
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base4 

base4 

base4 

base4 

base4 

base4 

base4 

base4 

base4 

base4 

base4 

base4 

base4 

base4 

base4 

base4 

base4 

base4 


3sfp= 

3srp= 

4sfp= 

4srp= 

5sfp= 

5srp= 

6sfp= 

6srp= 

7sfp= 

7srp= 

8sfp= 

8srp= 

9sfp= 

9srp= 

lOsfp 

lOsrp 

llsfp 

llsrp 


f ft (base43 
f ft (base43 
f ft (base44 
f ft  (base44 
f ft (base45 
f ft (base45 
f f t (base4  6 
f f t (base4  6 
f ft (base47 
f ft (base47 
f f t (base4  8 
f f t (base4  8 
f f t (base4  9 
f f t (base4  9 
=fft (base4 
=fft (base4 
=fft (base4 
=fft (base4 


( f sti : 
(bsti : 
(fsti : 
(bsti : 
(fsti : 
(bsti : 
(fsti : 
(bsti : 
(fsti : 
(bsti : 
(fsti : 
(bsti : 
(fsti : 
(bsti : 
10 (fst 

10  (bst 
11 (fst 

11  (bst 


feni , Nchp) . * 
beni , Nchp) . * 
feni , Nchp) . * 
beni , Nchp) . * 
feni , Nchp) . * 
beni , Nchp) . * 
feni , Nchp) . * 
beni , Nchp) . * 
feni , Nchp) . * 
beni , Nchp) . * 
feni , Nchp) . * 
beni , Nchp) . * 
feni , Nchp) . * 
beni , Nchp) . * 
i : feni , Nchp) 
i : beni , Nchp) 
i : feni , Nchp) 
i : beni , Nchp) 


wind)/ (feni-fsti+ 
wind) / (beni-bsti+ 
wind) / (feni-fsti+ 
wind) / (beni-bsti+ 
wind) / (feni-fsti+ 
wind) / (beni-bsti+ 
wind) / (feni-fsti+ 
wind) / (beni-bsti+ 
wind) / (feni-fsti+ 
wind) / (beni-bsti+ 
wind) / (feni-fsti+ 
wind) / (beni-bsti+ 
wind) / (feni-fsti+ 
wind) / (beni-bsti+ 
. *wind) / (feni-fst 
. *wind)/ (beni-bst 
,*wind) / (feni-fst 
. *wind) / (beni-bst 


1)  * 
1)  * 
1)  * 
1)  * 
1)  * 
1)  * 
1)  * 
1)  * 
1)  * 
1)  * 
1)  * 
1)  * 
1)  * 
1)  * 
i  +  1 
i  +  1 
i  +  1 
i  +  1 


*2; 

*2; 

*2; 

*2; 


base51sfp=f ft (base51 (fsti: feni, Nchp) . * 
base51srp=f ft (base 51 (bsti :beni, Nchp) . * 
base52sfp=f ft (base 5 2 (fsti : feni,  Nchp)  . * 
base52srp=f ft (base 5 2 (bsti :beni, Nchp) . * 
base53sfp=f f t (base53 ( fsti : feni , Nchp) . * 
base53srp=f f t (base53 (bsti: beni , Nchp) . * 
base54sfp=f ft (base 5 4 (fsti : feni, Nchp) . * 
base54srp=f ft (base54 (bsti :beni, Nchp) . * 
base55sfp=f f t (base55 (fsti:feni, Nchp) . * 
base55srp=f f t (base55 (bsti: beni , Nchp) . * 
base56sfp=f ft (base56 (fsti: feni, Nchp) . * 
base56srp=f ft (base56 (bsti :beni, Nchp) . * 
base57sfp=f f t (base57 (fsti:feni, Nchp) . * 
base57srp=f f t (base 5 7 (bsti : beni , Nchp) . * 
base58sfp=f ft (base58 (fsti: feni, Nchp) . * 
base58srp=f ft (base58 (bsti :beni, Nchp) . * 
base59sfp=f ft (base59 (fsti: feni, Nchp) . * 
base59srp=f ft (base59 (bsti :beni, Nchp) . * 
base510sfp=f ft (base510 (fsti: feni, Nchp) 
base510srp=f ft (base510 (bsti :beni, Nchp) 
base511sfp=f ft (base511 (fsti : feni, Nchp) 
base511srp=f ft (base511 (bsti :beni, Nchp) 


wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1 ) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
. *wind) / ( feni-f sti+1 ) 
. *wind) / (beni-bsti+1) 
,*wind) / ( feni-f sti+1 ) 
,*wind)/ (beni-bsti+1) 


*2; 

*2; 

*2; 

*2; 


%  Load  data  from  tire  pressure  fault/driver  front 

importfile ( ' DriverFrontTPl Opsi  1/Acceleration. txt ' ) ; 

tiredf ll=data; 

speedtdf 1 l=speed (data,  t)  ; 

aoadtdf ll=angleofa (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  2 /Acceleration . txt ' ) ; 

tiredf 12=data; 

speedtdf 12=speed (data, t) ; 

aoadtdf 12=angleof a (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  3 /Acceleration . txt ' ) ; 

tiredf 13=data; 

speedtdf 13=speed (data, t) ; 

aoadtdf 13=angleofa (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  4/Acceleration. txt ' ) ; 
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tiredf 14=data; 

speedtdf 14=speed (data,  t)  ; 

aoadtdf 14=angleofa (data,  t)  ; 

import file ( ' DriverFrontTPl Op si  5 /Acceleration . txt ' ) ; 

tiredf 15=data; 

speedtdf 15=speed (data, t) ; 

aoadtdf 15=angleofa (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  6/Acceleration. txt ' ) ; 

tiredfl6=data; 

speedtdf 1 6=speed (data,  t)  ; 

aoadtdf 1 6=angleof a (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  7/Acceleration . txt ' ) ; 

tiredf 17=data; 

speedtdf 17=speed (data, t) ; 

aoadtdf 17=angleofa (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  8 /Acceleration . txt ' ) ; 

tiredfl8=data; 

speedtdf 1 8=speed (data, t) ; 

aoadtdf 18=angleofa (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  9/Acceleration. txt ' ) ; 

tiredfl9=data; 

speedtdf 1 9=speed (data,  t)  ; 

aoadtdf 1 9=angleof a (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  10 /Acceleration . txt ' ) ; 
tiredf 110=data; 
speedtdfll0=speed (data, t) ; 
aoadtdf 110=angleofa (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  11/ Acceleration . txt ' ) ; 
tiredf 11 l=data; 
speedtdflll=speed (data,  t)  ; 
aoadtdf lll=angleofa (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  12 /Acceleration . txt ' ) ; 

tiredf 1 12=data; 

speedtdf 1 12=speed (data,  t)  ; 

aoadtdf 112=angleof a (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  13 /Acceleration . txt ' ) ; 
tiredf 113=data; 
speedtdfll3=speed (data, t) ; 
aoadtdf 113=angleof a (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  14 /Acceleration . txt ' ) ; 
tiredf 11 4=data; 
speedtdfll4=speed (data,  t)  ; 
aoadtdf 114=angleof a (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  15 /Acceleration . txt ' ) ; 

tiredf 11 5=data; 

speedtdf 115=speed (data,  t)  ; 

aoadtdf 115=angleof a (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  1 6 /Acceleration . txt ' ) ; 

tiredf 11 6=data; 

speedtdf 1 1 6=speed (data, t) ; 

aoadtdf 116=angleofa (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  17 / Acceleration . txt ' ) ; 

tiredfll7=data; 

speedtdf 117=speed (data,  t) ; 

aoadtdf 117=angleof a (data,  t)  ; 

importfile ( ' DriverFrontTPl Opsi  1 8 /Acceleration . txt ' ) ; 
tiredf 1 1 8=data; 
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speedtdf 1 1 8=speed (data,  t)  ; 
aoadtdf 118=angleofa (data,  t)  ; 

import file ( ' DriverFrontTPl Op si  1 9 /Acceleration . txt ' )  ; 

tiredf 119=data; 

speedtdf 1 1 9=speed (data, t) ; 

aoadtdf 119=angleofa (data,  t)  ; 

import file ( ' DriverFrontTPl Ops i  2 0 /Acceleration . txt ' ) ; 

tiredf 12 0=data; 

speedtdf 120=speed (data, t) ; 

aoadtdf 120=angleof a (data,  t)  ; 

import file ( ' DriverFrontTPl Ops i  2 1 /Acceleration . txt ' ) ; 

tiredf 12 l=data; 

speedtdf 121=speed (data, t) ; 

aoadtdf 12 l=angleof a (data,  t)  ; 

import file ( ' DriverFrontTPl Ops i  22 /Acceleration . txt ' ) ; 

tiredf 12 2=data; 

speedtdf 122=speed (data,  t)  ; 

aoadtdf 122=angleof a (data,  t)  ; 

import file ( ' DriverFrontTPl Ops i  2 3 /Acceleration . txt ' ) ; 

tiredf 12 3=data; 

speedtdf 123=speed (data, t) ; 

aoadtdf 123=angleof a (data,  t)  ; 

import file ( ' DriverFrontTPl Ops i  24 /Acceleration . txt ' ) ; 

tiredf 12 4=data; 

speedtdf 124=speed (data, t) ; 

aoadtdf 124=angleof a (data,  t)  ; 

importf ile ( ' DriverFrontTPl Opsi  25/Acceleration . txt ' ) ; 

tiredf 125=data; 

speedtdf 125=speed (data,  t)  ; 

aoadtdf 125=angleof a (data,  t)  ; 

importf ile ( ' DriverFrontTPl Opsi  2  6 /Acceleration . txt ' ) ; 

tiredf 126=data; 

speedtdf 12 6=speed (data,  t)  ; 

aoadtdf 12 6=angleof a (data,  t)  ; 

importf ile ( ' DriverFrontTPl Opsi  27 /Acceleration . txt ' ) ; 

tiredf 12 7=data; 

speedtdf 127=speed (data,  t)  ; 

aoadtdf 127=angleof a (data,  t)  ; 

importf ile ( ' DriverFrontTPl Opsi  2 8 /Acceleration . txt ' ) ; 

tiredf 12  8=data; 

speedtdf 12 8=speed (data, t) ; 

aoadtdf 12 8=angleof a (data,  t)  ; 

importf ile ( ' DriverFrontTPl Opsi  2  9 /Acceleration . txt ' ) ; 

tiredf 12 9=data; 

speedtdf 12 9=speed (data,  t)  ; 

aoadtdf 12 9=angleof a (data,  t)  ; 

importf ile ( ' DriverFrontTPl Opsi  30 /Acceleration . txt ' ) ; 

tiredf 13 0=data; 

speedtdf 130=speed (data, t) ; 

aoadtdf 130=angleof a (data,  t)  ; 

%  Calculate  spectra  for  driver  side  tire  fault 

tiredf 11 sf=f ft (tiredf 11 ( f sti : feni , Nchd) . *wind) / (feni-fsti+l)*2; 
tiredf 1 lsr=f ft (tiredf 11 (bsti : beni ,  Nchd)  . *wind) / (beni-bstitl )*2; 
tiredf 12 sf =f ft (tiredf 12 ( f sti : feni , Nchd) . *wind) / ( feni-f stitl )*2; 
tiredf 12 sr=f ft (tiredf 12 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tiredf 13sf=f ft (tiredf 13 ( f sti : feni ,  Nchd)  . *wind) / ( feni-f sti  +  1 ) *2 ; 
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tiredf 13sr=f f t ( tiredf 13 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 14sf =f f t (tiredf 14 ( f sti : f eni , Nchd) . *wind) / ( feni-fsti+1 ) *2 ; 
tiredf 14 sr=f ft (tiredf 14 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 15sf=f ft (tiredf 15 ( f sti : f eni , Nchd) . *wind) / ( feni-fsti+1 ) *2 ; 
tiredf 15 sr=f ft (tiredf 15 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 1 6sf=f ft ( tiredf 1 6 ( f sti : f eni , Nchd) . *wind) / ( feni-fsti+1 ) *2 ; 
tiredf 1 6sr=f f t ( tiredf 1 6 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 17sf =f f t (tiredf 17 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 17 sr=f ft (tiredf 17 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 1 8sf =f f t ( tiredf 1 8 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 1 8sr=f f t (tiredf 18 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 1 9sf=f ft ( tiredf 1 9 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 1 9sr=f f t ( tiredf 1 9 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 1 lOsf =f ft (tiredf 110 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 1 10sr=f ft (tiredf 1 10 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 1 1 lsf =f f t ( tiredf 1 1 1 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 1 llsr=f ft (tiredf 1 11 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 1 12 sf=f ft (tiredf 1 12 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 112 sr=f ft (tiredf 112 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 1 13sf=f ft (tiredf 1 13 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 1 13sr=f ft (tiredf 1 13 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tiredf 1 14sf=f ft (tiredf 1 14 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 1 14sr=f ft (tiredf 1 14 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tiredf 1 15sf=f ft (tiredf 115 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 1 15sr=f ft (tiredf 1 15 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tiredf 1 1 6sf =f f t ( tiredf 1 1 6 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 1 1 6sr=f f t (tiredf 1 16 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tiredf 1 17sf=f ft (tiredf 1 17 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 1 17sr=f ft (tiredf 117 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 ) *2 ; 
tiredf 1 18sf=fft ( tiredf 1 1 8 (fstirfeni, Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 1 1 8sr=f f t (tiredf 1 18 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 ) *2 ; 
tiredf 1 19sf=fft (tiredf 1 19 (fstirfeni, Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 1 1 9sr=f f t (tiredf 1 19 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tiredf 120 sf=f ft (tiredf 120 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 12 0sr=f ft (tiredf 120 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tiredf 12 lsf =f ft (tiredf 12 1 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+l)*2; 
tiredf 121 sr=f ft (tiredf 121 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tiredf 122 sf=f ft (tiredf 122 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 122 sr=f ft (tiredf 122 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tiredf 12 3sf=f ft (tiredf 123 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 12 3sr=f ft (tiredf 123 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tiredf 124 sf=f ft (tiredf 124 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 124 sr=f ft (tiredf 124 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tiredf 12 5sf=f ft (tiredf 125 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 12 5sr=f ft (tiredf 125 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tiredf 12  6sf=f ft (tiredf 12  6 ( f sti : f eni , Nchd)  . *wind) / (feni-fsti  +  l)*2; 
tiredf 12  6sr=f ft (tiredf 12  6 (bsti : beni , Nchd)  . *wind) / (beni-bsti  +  1 )*2; 
tiredf 127 sf=f ft (tiredf 127 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 127 sr=f ft (tiredf 127 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tiredf 12  8sf=f f t (tiredf 12  8 ( f sti : f eni , Nchd)  . *wind) / (feni-fsti  +  1) *2; 
tiredf 12  8 sr=f ft (tiredf 12  8 (bsti : beni , Nchd)  . *wind) / (beni-bsti  +  1 )*2; 
tiredf 12  9sf=f ft (tiredf 12  9 ( f sti : f eni , Nchd)  . *wind) / (feni-fsti  +  1) *2; 
tiredf 12  9sr=f ft (tiredf 12  9 (bsti : beni , Nchd)  . *wind) / (beni-bsti  +  1 )*2; 
tiredf 130 sf=f ft (tiredf 130 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredf 130 sr=f ft (tiredf 130 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 

tiredf 1 lsf p=f ft ( tiredf 1 1 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 ) *2 ; 
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tiredf 1 lsrp=f f t ( tiredf 1 1 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 12sfp=f f t (tiredf 12 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
tiredf 12 srp=f ft (tiredf 12 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 13sfp=f ft (tiredf 13 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
tiredf 13 srp=f ft (tiredf 13 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 14 sfp=f ft (tiredf 14 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
tiredf 14 srp=f ft (tiredf 14 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 15sfp=f ft (tiredf 15 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
tiredf 15 srp=f ft (tiredf 15 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 1 6sfp=f ft ( tiredf 1 6 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
tiredf 1 6srp=f f t ( tiredf 1 6 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 17 sfp=f ft (tiredf 17 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
tiredf 17 srp=f ft (tiredf 17 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 18 sfp=f ft (tiredf 18 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
tiredf 1 8srp=f f t ( tiredf 1 8 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 1 9sfp=f ft ( tiredf 1 9 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
tiredf 1 9srp=f f t (tiredf 1 9 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 1 10sfp=f ft (tiredf 110 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
tiredf 1 10srp=f ft (tiredf 1 10 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 1 llsfp=f ft (tiredf 11 1 ( f sti : feni , Nchp) . *wind) / (feni-fsti+l)*2; 
tiredf 1 1 lsrp=f f t ( tiredf 1 1 1 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 1 12 sfp=f ft (tiredf 112 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
tiredf 1 12 srp=f ft (tiredf 112 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tiredf 1 13sfp=f ft (tiredf 1 13 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
tiredf 1 13srp=f ft (tiredf 113 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 1 14sfp=f ft (tiredf 1 14 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
tiredf 1 14srp=f ft (tiredf 114 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 1 15sfp=f ft (tiredf 115 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
tiredf 11 5srp=f ft (tiredf 1 15 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 1 1 6sfp=f f t (tiredf 11 6 ( f sti : feni , Nchp) . *wind) / (feni-fsti+l)*2; 
tiredf 1 1 6srp=f f t ( tiredf 1 1 6 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 1 17sfp=f ft (tiredf 117 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
tiredf 1 17srp=f ft (tiredf 117 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 1 18sfp=f ft (tiredf 1 18 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
tiredf 1 1 8srp=f f t (tiredf 11 8 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 1 1 9sfp=f f t ( tiredf 1 1 9 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 ) *2 ; 
tiredf 1 1 9srp=f f t (tiredf 11 9 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 120 sfp=f ft (tiredf 120 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
tiredf 120 srp=f ft (tiredf 120 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 121 sfp=f ft (tiredf 12 1 ( f sti : feni , Nchp) . *wind) / (feni-fsti+l)*2; 
tiredf 12 lsrp=f ft (tiredf 12 1 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 122 sfp=f ft (tiredf 122 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
tiredf 122 srp=f ft (tiredf 122 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 12 3sfp=f ft (tiredf 123 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
tiredf 12 3srp=f ft (tiredf 123 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 124 sfp=f ft (tiredf 124 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
tiredf 124 srp=f ft (tiredf 124 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 12 5sfp=f ft (tiredf 125 ( f sti : feni , Nchp) . *wind) / (feni-fsti+l)*2; 
tiredf 12 5srp=f ft (tiredf 125 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 12  6sfp=f ft (tiredf 12  6 ( f sti : feni , Nchp)  . *wind) / (feni-fsti  +  l)*2; 
tiredf 12  6srp=f ft (tiredf 12  6 (bsti : beni , Nchp)  . *wind) / (beni-bsti  +  1 )*2; 
tiredf 127 sfp=f ft (tiredf 127 ( f sti : feni , Nchp) . *wind) / (feni-fsti+l)*2; 
tiredf 127 srp=f ft (tiredf 127 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredf 128 sfp=f ft (tiredf 128 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )*2; 
tiredf 12  8srp=f f t (tiredf 12  8 (bsti : beni , Nchp)  . *wind) / (beni-bsti  +  1 )*2; 
tiredf 12  9sfp=f ft (tiredf 12  9 ( f sti : feni , Nchp)  . *wind) / ( feni-f sti  +  1 )*2; 
tiredf 12  9srp=f ft (tiredf 12  9 (bsti : beni , Nchp)  . *wind) / (beni-bsti  +  1 ) *2 ; 
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tiredf 130sfp=f f t ( tiredf 130 ( f sti : feni , Nchp) . *wind) / ( feni-f sti+1 )  *2 ; 
tiredf 130srp=f f t (tiredf 130 (bsti : beni ,  Nchp)  . *wind) / (beni-bsti  +  1 )  *2  ; 

%  Load  passenger  front  tire  data 

import file ( ' PassengerFrontTPl Opsi  1 /Acceleration . txt ' ) ; 

tirepf ll=data; 

speedtpf 1 l=speed (data,  t)  ; 

aoadtpf ll=angleofa (data,  t)  ; 

import file ( ' PassengerFrontTPl Opsi  2 /Acceleration . txt ' ) ; 

tirepf 12=data; 

speedtpf 12=speed (data, t) ; 

aoadtpf 12=angleof a (data,  t)  ; 

import file ( ' PassengerFrontTPl Opsi  3 /Acceleration . txt ' ) ; 

tirepf 13=data; 

speedtpf 13=speed (data,  t)  ; 

aoadtpf 13=angleofa (data,  t)  ; 

import file ( ' PassengerFrontTPl Opsi  4 /Acceleration . txt ' ) ; 

tirepf 14=data; 

speedtpf 14=speed (data,  t) ; 

aoadtpf 14=angleofa (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  5/Acceleration . txt ' ) ; 

tirepf 15=data; 

speedtpf 15=speed (data, t) ; 

aoadtpf 15=angleofa (data,  t)  ; 

importfile ( ' PassengerFrontTPlOpsi  6 /Acceleration . txt ' ) ; 

tirepfl6=data; 

speedtpf 1 6=speed (data, t)  ; 

aoadtpf 1 6=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPlOpsi  7 /Acceleration . txt ' ) ; 

tirepf 17=data; 

speedtpf 17=speed (data,  t)  ; 

aoadtpf 17=angleofa (data,  t)  ; 

importfile ( ' PassengerFrontTPlOpsi  8/Acceleration . txt ' ) ; 

tirepfl8=data; 

speedtpf 1 8=speed (data, t) ; 

aoadtpf 18=angleofa (data,  t)  ; 

importfile ( ' PassengerFrontTPlOpsi  9/Acceleration . txt ' ) ; 

tirepf 19=data; 

speedtpf 1 9=speed (data,  t)  ; 

aoadtpf 1 9=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPlOpsi  10 /Acceleration . txt ' ) ; 
tirepf 110=data; 
speedtpfll0=speed (data,  t)  ; 
aoadtpf 110=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPlOpsi  11/ Acceleration . txt ' ) ; 

tirepflll=data; 

speedtpf lll=speed (data,  t)  ; 

aoadtpf lll=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPlOpsi  12/Acceleration. txt ' ) ; 

tirepf 11 2=data; 

speedtpf 1 12=speed (data,  t)  ; 

aoadtpf 112=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPlOpsi  13 /Acceleration . txt ' ) ; 
tirepf 11 3=data; 
speedtpfll3=speed (data,  t)  ; 
aoadtpf 113=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPlOpsi  14/Acceleration. txt ' ) ; 
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tirepf 11 4=data; 
speedtpfll4=speed (data,  t)  ; 
aoadtpf 114=angleof a (data,  t)  ; 

import file ( ' PassengerFrontTPl Op si  15 /Acceleration . txt ' ) ; 

tirepf 11 5=data; 

speedtpf 115=speed (data,  t) ; 

aoadtpf 115=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  16/Acceleration. txt ' ) ; 

tirepf 11 6=data; 

speedtpf 1 1 6=speed (data,  t)  ; 

aoadtpf 116=angleofa (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  17 / Acceleration . txt ' ) ; 

tirepf 11 7=data; 

speedtpf 117=speed (data, t) ; 

aoadtpf 117=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  1 8 /Acceleration . txt ' ) ; 

tirepf 1 1 8=data; 

speedtpf 1 1 8=speed (data,  t)  ; 

aoadtpfll8=angleofa (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  19/Acceleration. txt ' ) ; 

tirepf 11 9=data; 

speedtpf 1 1 9=speed (data, t) ; 

aoadtpf 119=angleofa (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  2 0 /Acceleration . txt ' ) ; 

tirepf 12 0=data; 

speedtpf 120=speed (data,  t) ; 

aoadtpf 120=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  21/Acceleration. txt ' ) ; 

tirepf 12 l=data; 

speedtpf 121=speed (data,  t)  ; 

aoadtpf 12 l=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  22/Acceleration. txt ' ) ; 

tirepf 12 2=data; 

speedtpf 122=speed (data, t) ; 

aoadtpf 122=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  2 3 /Acceleration . txt ' ) ; 

tirepf 123=data; 

speedtpf 123=speed (data,  t)  ; 

aoadtpf 123=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  24/Acceleration. txt ' ) ; 

tirepf 12 4=data; 

speedtpf 124=speed (data, t) ; 

aoadtpf 124=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  25/Acceleration . txt ' ) ; 

tirepf 12 5=data; 

speedtpf 125=speed (data,  t)  ; 

aoadtpf 125=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  2 6 /Acceleration . txt ' )  ; 

tirepf 12 6=data; 

speedtpf 12 6=speed (data, t) ; 

aoadtpf 12 6=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  27 / Acceleration . txt ' ) ; 

tirepf 12 7=data; 

speedtpf 127=speed (data,  t) ; 

aoadtpf 127=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  2 8 /Acceleration . txt ' ) ; 
tirepf 12 8=data; 
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speedtpf 12 8=speed (data,  t)  ; 
aoadtpf 12 8=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  29/Acceleration. txt ' ) ; 

tirepf 129=data; 

speedtpf 12 9=speed (data,  t)  ; 

aoadtpf 12 9=angleof a (data,  t)  ; 

importfile ( ' PassengerFrontTPl Opsi  30 /Acceleration . txt ' ) ; 

tirepf 13 0=data; 

speedtpf 130=speed (data, t) ; 

aoadtpf 130=angleof a (data,  t)  ; 


tirepfllsf=fft (tirepfll (fsti 
tirepf llsr=f ft (tirepfll (bsti 
tirepf 12sf=f ft (tirepfl2 (fsti 
tirepf 12sr=f ft (tirepfl2 (bsti 
tirepf 13sf=f ft (tirepfl3 (fsti 
tirepf 13sr=f ft (tirepfl3 (bsti 
tirepf 14sf=f ft (tirepfl4 (fsti 
tirepf 14sr=f ft (tirepfl4 (bsti 
tirepf 15sf=f ft (tirepfl5 (fsti 
tirepf 15sr=f ft (tirepfl5 (bsti 
tirepf 1 6sf=f ft (tirepfl6 (fsti 
tirepf 1 6sr=f ft (tirepfl6 (bsti 
tirepfl7sf=fft (tirepfl7 (fsti 
tirepfl7sr=fft (tirepfl7 (bsti 
tirepf 18sf=f ft (tirepfl8 (fsti 
tirepfl8sr=fft (tirepfl8 (bsti 
tirepf 1 9sf=f ft (tirepfl9 (fsti 
tirepf 1 9sr=f ft (tirepfl9 (bsti 
tirepfll0sf=fft (tirepfllO (fst 
tirepf 110sr=f ft (tirepfllO (bst 
tirepflllsf=fft (tirepflll (fst 
tirepf lllsr=f ft (tirepflll (bst 
tirepfll2sf=fft (tirepfll2 (fst 
tirepfll2sr=fft (tirepfll2 (bst 
tirepf 113sf=f ft (tirepfll3 (fst 
tirepfll3sr=fft (tirepfll3 (bst 
tirepfll4sf=fft (tirepfll4 (fst 
tirepfll4sr=fft (tirepfll4 (bst 
tirepfll5sf=fft (tirepfll5 (fst 
tirepf 115sr=f ft (tirepfll5 (bst 
tirepf 1 1 6sf=f ft (tirepfll6 (fst 
tirepfll6sr=fft (tirepfll6 (bst 
tirepfll7sf=fft (tirepfll7 (fst 
tirepfll7sr=fft (tirepfll7 (bst 
tirepf 118sf=f ft (tirepfll8 (fst 
tirepfll8sr=fft (tirepfll8 (bst 
tirepfll9sf=fft (tirepfll9 (fst 
tirepf 1 1 9sr=f ft (tirepfll9 (bst 
tirepf 120sf=f ft (tirepfl20 (fst 
tirepf 120sr=f ft (tirepfl20 (bst 
tirepf 121sf=f ft (tirepfl21 (fst 
tirepf 121sr=f ft (tirepfl21 (bst 
tirepf 122sf=f ft (tirepfl22 (fst 
tirepf 122sr=f ft (tirepfl22 (bst 
tirepf 123sf=f ft (tirepfl23 (fst 
tirepf 123sr=f ft (tirepfl23 (bst 


feni , Nchd) . * 
beni , Nchd) . * 
feni , Nchd) . * 
beni , Nchd) . * 
feni , Nchd) . * 
beni , Nchd) . * 
feni , Nchd) . * 
beni , Nchd) . * 
feni , Nchd) . * 
beni , Nchd) . * 
feni , Nchd) . * 
beni , Nchd) . * 
feni , Nchd) . * 
beni , Nchd) . * 
feni , Nchd) . * 
beni , Nchd) . * 
feni , Nchd) . * 
beni , Nchd) . * 
i : feni , Nchd) 
i : beni , Nchd) 
i : f eni , Nchd) 
i : beni , Nchd) 
i : feni , Nchd) 
i : beni , Nchd) 
i : feni , Nchd) 
i : beni , Nchd) 
i : feni , Nchd) 
i : beni , Nchd) 
i : feni , Nchd) 
i : beni , Nchd) 
i : feni , Nchd) 
i : beni , Nchd) 
i : feni , Nchd) 
i : beni , Nchd) 
i : feni , Nchd) 
i : beni , Nchd) 
i : feni , Nchd) 
i : beni , Nchd) 
i : feni , Nchd) 
i : beni , Nchd) 
i : feni , Nchd) 
i : beni , Nchd) 
i : feni , Nchd) 
i : beni , Nchd) 
i : feni , Nchd) 
i : beni , Nchd) 


wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1 ) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
wind) / ( feni-f sti+1 ) *2; 
wind) / (beni-bsti+1) *2; 
,*wind) / ( feni-f sti+1 ) *2 
,*wind) / (beni-bsti+1) *2 
,*wind) / ( feni-f sti+1 ) *2 
,*wind) / (beni-bsti+1) *2 
,*wind) / ( feni-f sti+1 ) *2 
,*wind) / (beni-bsti+1) *2 
,*wind) / ( feni-f sti+1 ) *2 
,*wind) / (beni-bsti+1) *2 
,*wind) / ( feni-f sti+1 ) *2 
,*wind) / (beni-bsti+1) *2 
,*wind) / ( feni-f sti+1 ) *2 
,*wind) / (beni-bsti+1) *2 
,*wind) / ( feni-f sti+1 ) *2 
,*wind) / (beni-bsti+1) *2 
,*wind) / ( feni-f sti+1 ) *2 
,*wind) / (beni-bsti+1) *2 
,*wind) / ( feni-f sti+1 ) *2 
,*wind) / (beni-bsti+1) *2 
,*wind) / ( feni-f sti+1 ) *2 
,*wind) / (beni-bsti+1) *2 
,*wind) / ( feni-f sti+1 ) *2 
,*wind) / (beni-bsti+1) *2 
,*wind) / ( feni-f sti+1 ) *2 
. *wind) / (beni-bsti+1 ) *2 
,*wind) / ( feni-f sti+1 ) *2 
,*wind) / (beni-bsti+1) *2 
,*wind) / ( feni-f sti+1 ) *2 
,*wind) / (beni-bsti+1) *2 
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tirepf 124sf =f f t ( tirepf 124 ( f sti : f eni , Nchd) . *wind) / ( f eni-f sti+1 ) *2 ; 
tirepf 124sr=f f t (tirepf 124 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tirepf 12 5sf=f ft (tirepf 125 ( f sti : f eni , Nchd) . *wind) / ( f eni-f sti+1 ) *2; 
tirepf 12 5sr=f ft (tirepf 125 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tirepf 12  6sf=f ft (tirepf 12  6 ( f sti : f eni , Nchd)  . *wind) / ( f eni-f sti+1 ) *2; 
tirepf 12  6sr=f ft (tirepf 12  6 (bsti : beni , Nchd)  . *wind) / (beni-bsti  +  1 )  *2 ; 
tirepf 127 sf=f ft (tirepf 127 ( f sti : f eni , Nchd) . *wind) / ( f eni-f sti+1 ) *2; 
tirepf 127 sr=f ft (tirepf 127 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tirepf 128 sf=f ft (tirepf 128 ( f sti : f eni , Nchd) . *wind) / ( f eni-f sti+1 ) *2; 
tirepf 12  8sr=f f t (tirepf 12  8 (bsti : beni , Nchd)  . *wind) / (beni-bsti  +  1 )  *2 ; 
tirepf 12  9sf=f ft (tirepf 12  9 ( f sti : f eni , Nchd)  . *wind) / ( f eni-f sti+1 ) *2 ; 
tirepf 12  9sr=f ft (tirepf 12  9 (bsti : beni , Nchd)  . *wind) / (beni-bsti  +  1 )  *2 ; 
tirepf 130 sf=f ft (tirepf 130 ( f sti : f eni , Nchd) . *wind) / ( f eni-f sti+1 ) *2; 
tirepf 130 sr=f ft (tirepf 130 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 

tirepf 1 lsfp=f ft ( tirepf 1 1 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tirepf 1 lsrp=f ft ( tirepf 1 1 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tirepf 12 sfp=f ft (tirepf 12 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tirepf 12 srp=f ft (tirepf 12 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tirepf 13sfp=f ft (tirepf 13 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tirepf 13 srp=f ft (tirepf 13 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tirepf 14 sfp=f ft (tirepf 14 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tirepf 14 srp=f ft (tirepf 14 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tirepf 15sfp=f ft (tirepf 15 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tirepf 15 srp=f ft (tirepf 15 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tirepf 1 6sfp=f ft ( tirepf 1 6 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tirepf 1 6srp=f f t ( tirepf 1 6 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tirepf 17 sfp=f ft (tirepf 17 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tirepf 17 srp=f ft (tirepf 17 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tirepf 1 8sfp=f f t (tirepf 1 8 (fstirfeni, Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tirepf 18 srp=f ft ( tirepf 1 8 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tirepf 1 9sfp=f ft ( tirepf 1 9 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tirepf 1 9srp=f f t ( tirepf 1 9 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tirepf 1 10sfp=f ft (tirepf 110 ( f sti : feni , Nchp) . *wind) / (feni-fsti+l)*2; 
tirepf 1 10srp=f ft (tirepf 110 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tirepf 11 lsfp=f ft ( tirepf 1 1 1 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tirepf 1 llsrp=f ft (tirepf 11 1 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tirepf 1 12 sfp=f ft (tirepf 1 12 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tirepf 1 12 srp=f ft (tirepf 112 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tirepf 1 13sfp=f ft (tirepf 113 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tirepf 11 3srp=f ft (tirepf 1 13 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tirepf 1 14sfp=f ft (tirepf 114 ( f sti : feni , Nchp) . *wind) / (feni-fsti+l)*2; 
tirepf 1 14srp=f ft (tirepf 1 14 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tirepf 1 15sfp=f ft (tirepf 115 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tirepf 1 15srp=f ft (tirepf 115 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tirepf 1 1 6sfp=f f t ( tirepf 1 1 6 (fstirfeni, Nchp) . *wind) / ( f eni-f sti+1 ) *2 ; 
tirepf 1 1 6srp=f f t (tirepf 11 6 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tirepf 1 17sfp=f ft (tirepf 1 17 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tirepf 1 17srp=f ft (tirepf 117 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 ) *2 ; 
tirepf 1 1 8sfp=f f t (tirepf 11 8 (fstirfeni, Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tirepf 118srp=f ft (tirepf 1 18 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 ) *2 ; 
tirepf 1 1 9sfp=f f t (tirepf 11 9 (fstirfeni, Nchp) . *wind) / (feni-fsti+l)*2; 
tirepf 1 1 9srp=f f t ( tirepf 1 1 9 (bsti r  beni , Nchp)  . *wind) / (beni-bsti  +  1 )*2; 
tirepf 120 sfp=f ft (tirepf 120 (fstirfeni, Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tirepf 12  0 srp=f ft (tirepf 12  0 (bsti r  beni , Nchp)  . *wind) / (beni-bsti  +  1 )*2; 
tirepf 12 lsfp=f ft (tirepf 12 1 (fstirfeni, Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tirepf 121 srp=f ft (tirepf 12 1 (bsti r  beni , Nchp)  . *wind) / (beni-bsti  +  1 ) *2 ; 
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tirepf 122sfp=f ft (tirepf 122 (f sti : feni, Nchp) . *wind) / (feni-fsti+1 
tirepf 122srp=f ft (tirepf 122 (bsti :beni, Nchp) . *wind) / (beni-bsti+1 
tirepf 12 3sfp=f ft (tirepf 123 (f sti : feni, Nchp) . *wind) / (feni-fsti+1 
tirepf 12 3srp=f ft (tirepf 12 3 (bsti :beni, Nchp) . *wind) / (beni-bsti+1 
tirepf 124 sfp=f ft (tirepf 124 (f sti : feni, Nchp) . *wind) / (feni-fsti+1 
tirepf 124 srp=f ft (tirepf 124 (bsti :beni, Nchp) . *wind) / (beni-bsti+1 
tirepf 12 5sfp=f ft (tirepf 125 (f sti : feni, Nchp) . *wind) / (feni-fsti+1 
tirepf 12 5srp=f ft (tirepf 125 (bsti :beni, Nchp) . *wind) / (beni-bsti+1 
tirepf 12 6sfp=f ft (tirepf 126 (f sti : feni, Nchp) . *wind) / (feni-fsti+1 
tirepf 12 6srp=f ft (tirepf 126 (bsti :beni, Nchp) . *wind) / (beni-bsti+1 
tirepf 127 sfp=f ft (tirepf 127 (f sti : feni, Nchp) . *wind) / (feni-fsti+1 
tirepfl27srp=f ft (tirepf 127 (bsti :beni, Nchp) . *wind) / (beni-bsti+1 
tirepf 128 sfp=f ft (tirepf 128 (f sti : feni, Nchp) . *wind) / (feni-fsti+1 
tirepfl28srp=f ft (tirepf 128 (bsti :beni, Nchp) . *wind) / (beni-bsti+1 
tirepf 12 9sfp=f ft (tirepf 129 (f sti : feni, Nchp) . *wind) / (feni-fsti+1 
tirepf 12 9srp=f ft (tirepf 129 (bsti :beni, Nchp) . *wind) / (beni-bsti+1 
tirepf 130 sfp=f ft (tirepf 130 (f sti : feni, Nchp) . *wind) / (feni-fsti+1 
tirepf 130 srp=f ft (tirepf 130 (bsti :beni, Nchp) . *wind) / (beni-bsti+1 

%  Load  data  from  tire  pressure  fault/driver  rear 

importfile ( ' DriverRearTPl Opsi  1/Acceleration . txt ' ) ; 

tiredrll=data; 

speedtdrl l=speed (data,  t)  ; 

aoadtdrll=angleofa (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  2 /Acceleration . txt ' ) ; 

tiredrl2=data; 

speedtdrl2=speed (data,  t)  ; 

aoadtdrl2=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  3 /Acceleration . txt ' ) ; 
tiredrl3=data; 
speedtdrl3=speed (data,  t)  ; 
aoadtdrl3=angleofa (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  4 /Acceleration . txt ' ) ; 
tiredrl4=data; 
speedtdrl4=speed (data, t) ; 
aoadtdrl4=angleofa (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  5 /Acceleration . txt ' ) ; 
tiredrl5=data; 
speedtdrl5=speed (data,  t)  ; 
aoadtdrl5=angleofa (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  6/Acceleration . txt ' ) ; 

tiredrl6=data; 

speedtdrl 6=speed (data,  t)  ; 

aoadtdrl 6=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  7 /Acceleration . txt ' ) ; 
tiredrl7=data; 
speedtdrl7=speed (data, t) ; 
aoadtdrl7=angleofa (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  8 / Acceleration . txt ' ) ; 

tiredrl8=data; 

speedtdrl 8=speed (data,  t)  ; 

aoadtdrl 8=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  9 /Acceleration . txt ' ) ; 

tiredrl9=data; 

speedtdrl 9=speed (data,  t)  ; 

aoadtdrl 9=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  10/ Acceleration . txt ' ) ; 


*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 
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tiredrl 10=data; 
speedtdrllO=speed (data,  t)  ; 
aoadtdrllO=angleof a (data,  t)  ; 

import file ( ' DriverRearTPl Op si  11/ Acceleration . txt ' ) ; 

tiredrl ll=data; 
speedtdrlll=speed (data,  t)  ; 
aoadtdrlll=angleofa (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  12/Acceleration. txt ' ) ; 

tiredrll2=data; 

speedtdrl 12=speed (data,  t)  ; 

aoadtdrll2=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  13/Acceleration. txt ' ) ; 
tiredrl 13=data; 
speedtdrll3=speed (data, t) ; 
aoadtdrll3=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  14 /Acceleration . txt ' ) ; 
tiredrl 14=data; 
speedtdrll4=speed (data,  t)  ; 
aoadtdrll4=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  15 /Acceleration . txt ' ) ; 
tiredrl 15=data; 
speedtdrll5=speed (data,  t)  ; 
aoadtdr!15=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  1 6 /Acceleration . txt ' ) ; 
tiredrl 1 6=data; 
speedtdrll6=speed (data,  t)  ; 
aoadtdr!16=angleofa (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  17/Acceleration . txt ' ) ; 
tiredrl 17=data; 
speedtdrll7=speed (data,  t)  ; 
aoadtdrll7=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  18/Acceleration. txt ' ) ; 
tiredrl 1 8=data; 
speedtdrl 1 8=speed (data,  t) ; 
aoadtdrll8=angleofa (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  1 9 /Acceleration . txt ' ) ; 
tiredrl 1 9=data; 
speedtdrl 1 9=speed (data, t) ; 
aoadtdrll9=angleofa (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  20/Acceleration. txt ' ) ; 

tiredrl20=data; 

speedtdrl20=speed (data,  t)  ; 

aoadtdrl20=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  2 1 /Acceleration . txt ' ) ; 

tiredrl21=data; 

speedtdrl21=speed (data,  t)  ; 

aoadtdrl2 l=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  22/Acceleration. txt ' ) ; 

tiredrl22=data; 

speedtdrl22=speed (data,  t)  ; 

aoadtdrl22=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  23/Acceleration. txt ' ) ; 

tiredrl23=data; 

speedtdrl23=speed (data, t) ; 

aoadtdrl23=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  24 /Acceleration . txt ' ) ; 
tiredrl24=data; 
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speedtdrl24=speed (data,  t)  ; 
aoadtdrl24=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  25/Acceleration. txt ' ) ; 
tiredrl 2 5=data; 
speedtdrl25=speed (data,  t)  ; 
aoadtdrl25=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  26/Acceleration. txt ' ) ; 
tiredrl 2 6=data; 
speedtdrl26=speed (data,  t) ; 
aoadtdr!2 6=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  27 /Acceleration . txt ' ) ; 
tiredrl 2 7=data; 
speedtdrl27=speed (data, t) ; 
aoadtdrl27=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  28/ Acceleration . txt ' ) ; 
tiredrl 2 8=data; 
speedtdrl2 8=speed (data,  t)  ; 
aoadtdrl2 8=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  2  9 /Acceleration . txt ' ) ; 
tiredrl 2 9=data; 
speedtdrl29=speed (data,  t) ; 
aoadtdrl2 9=angleof a (data,  t)  ; 

importfile ( ' DriverRearTPl Opsi  30/Acceleration. txt ' ) ; 
tiredrl 3 0=data; 
speedtdrl30=speed (data,  t)  ; 
aoadtdr!30=angleof a (data,  t)  ; 


%  Calculate 
tiredrllsf= 
tiredrllsr= 
tiredrl2sf= 
tiredrl2sr= 
tiredrl3sf= 
tiredrl3sr= 
tiredrl4sf= 
tiredrl4sr= 
tiredrl5sf= 
tiredrl5sr= 
tiredrl 6sf = 
tiredrl 6sr= 
tiredrl7sf= 
tiredrl7sr= 
tiredrl8sf= 
tiredrl8sr= 
tiredrl 9sf= 
tiredrl 9sr= 
tiredrllOsf 
tiredrllOsr 
tiredrlllsf 
tiredrlllsr 
tiredrll2sf 
tiredrll2sr 
tiredrll3sf 
tiredrll3sr 
tiredrll4sf 
tiredrll4sr 
tiredrll5sf 


spectra  for  driver  side  tire 
fft ( tiredrl 1 (fsti : feni,  Nchd)  .  * 
fft ( tiredrl 1 (bsti :beni, Nchd) . * 
fft (tiredrl 2 (fsti : feni,  Nchd)  . * 
fft (tiredrl 2 (bsti :beni, Nchd) . * 
:f ft (tiredrl3 (fsti : feni,  Nchd)  .* 
fft (tiredrl3 (bsti :beni, Nchd) .* 
fft (tiredrl 4 (fsti : feni, Nchd) . * 
fft (tiredrl 4 (bsti :beni, Nchd) . * 
fft (tiredrl5 (fsti : feni, Nchd) .* 
fft (tiredrl5 (bsti :beni, Nchd) .* 
fft (tiredrl6 (fsti : feni,  Nchd)  .* 
:f ft (tiredrl6 (bsti :beni,  Nchd)  .* 
fft (tiredrl 7 (fsti : feni, Nchd) . * 
fft (tiredrl 7 (bsti : beni ,  Nchd)  .  * 
fft (tiredrl 8 (fsti : feni,  Nchd)  . * 
fft (tiredrl 8 (bsti :beni, Nchd) . * 
fft (tiredrl9 (fsti : feni, Nchd) .* 
fft (tiredrl9 (bsti :beni,  Nchd)  .* 
=fft (tiredrl 10 (fsti : feni,  Nchd) 
—fft (tiredrllO (bsti :beni, Nchd) 
=fft (tiredrl 11 (fsti : feni,  Nchd) 
—fft (tiredrl 11 (bsti :beni,  Nchd) 
=fft (tiredrl 12 (fsti : feni, Nchd) 
—fft (tiredrl 12 (bsti :beni, Nchd) 
=fft (tiredrll3 (fsti : feni,  Nchd) 
—fft (tiredrl 13 (bsti :beni, Nchd) 
=fft (tiredrl 14 (fsti : feni, Nchd) 
—fft (tiredrl 14 (bsti :beni, Nchd) 
=fft (tiredrl 15 (fsti : feni, Nchd) 


fault 

wind) / ( feni-f stitl ) *2 
wind) / (beni-bstitl ) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1 ) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
wind) / ( feni-f sti+1 ) *2 
wind) / (beni-bsti+1) *2 
,*wind) / ( feni-f sti+1 ) 
,*wind) / (beni-bsti+1) 
,*wind) / ( feni-f sti+1 ) 
,*wind) / (beni-bsti+1) 
,*wind) / ( feni-f sti+1 ) 
,*wind) / (beni-bsti+1) 
. *wind) / (feni-f sti+1) 
,*wind) / (beni-bsti+1) 
,*wind) / ( feni-f sti+1 ) 
. *wind) / (beni-bsti+1) 
,*wind) / ( feni-f sti+1 ) 


*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 
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tiredrl 15sr=f f t ( tiredrl 15 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredrl 1 6sf =f f t (tiredrl 16 ( f sti : feni , Nchd) . *wind) / ( feni-f sti+1 ) *2; 
tiredrl 1 6sr=f ft (tiredrl 16 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredrl 17sf=f ft ( tiredrll7 ( f sti : feni , Nchd) . *wind) / ( feni-f sti+1 ) *2; 
tiredrl 17sr=f ft (tiredrl 17 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredrl 18sf=f ft (tiredrl 18 ( f sti : feni , Nchd) . *wind) / ( feni-f sti+1 ) *2; 
tiredrl 1 8sr=f f t (tiredrl 18 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredrl 1 9sf =f f t (tiredrl 19 ( f sti : feni , Nchd) . *wind) / ( feni-f sti+1 ) *2; 
tiredrl 1 9sr=f ft ( tiredrl 1 9 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredrl20sf=f f t ( tiredrl20 ( f sti : feni , Nchd) . *wind) / ( feni-f sti+1 ) *2; 
tiredrl20sr=f f t (ti redr 120 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredrl21sf=f f t ( tiredrl21 ( f sti : feni , Nchd) . *wind) / ( feni-f sti+1 ) *2; 
tiredrl21sr=f f t ( tiredrl21 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
ti redr 122 sf =f f t (ti redr 122 ( f sti : feni , Nchd) . *wind) / ( feni-f sti+1 ) *2; 
tiredrl22sr=f f t ( tiredrl22 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredrl23sf =f f t ( tiredrl23 ( f sti : feni , Nchd) . *wind) / ( feni-f sti+1 ) *2 ; 
tiredrl23sr=f f t ( tiredrl23 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredrl24sf=f f t ( tiredrl24 ( f sti : feni , Nchd) . *wind) / ( feni-f sti+1 ) *2; 
tiredrl24sr=f f t (ti redr 12 4 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredrl25sf=f f t ( tiredrl25 ( f sti : feni , Nchd) . *wind) / ( feni-f sti+1 ) *2; 
tiredrl25sr=f f t (ti redr 12 5 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredrl 2  6sf=f f t ( tiredrl 2  6 ( f sti : feni , Nchd)  . *wind) / ( feni-f sti+1 ) *2; 
tiredrl 2  6sr=f f t ( tiredrl 2  6 (bsti : beni , Nchd)  . *wind) / (beni-bsti  +  1 )  *2 ; 
tiredrl27sf=f f t (ti redr 12 7 ( f sti : feni , Nchd) . *wind) / ( feni-f sti+1 ) *2; 
tiredrl27sr=f f t ( tiredrl27 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tiredrl 2  8sf =f f t ( tiredrl 2  8 ( f sti : feni , Nchd)  . *wind) / ( feni-f sti+1 ) *2; 
tiredrl 2  8sr=f f t ( tiredrl 2  8 (bsti : beni , Nchd)  . *wind) / (beni-bsti  +  1 )  *2 ; 
tiredrl 2  9sf=f f t ( tiredrl 2  9 ( f sti : feni , Nchd)  . *wind) / (feni-fsti  +  1) *2; 
tiredrl 2  9sr=f f t (ti redr 12  9 (bsti : beni , Nchd)  . *wind) / (beni-bsti  +  1 )*2; 
tiredrl 30 sf=f f t (tiredrl 30 ( f sti : feni , Nchd) . *wind) / (feni-fsti+1) *2; 
tiredrl 30 sr=f f t (tiredrl 30 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 

tiredrl lsfp=f ft (tiredrl 1 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
tiredrl lsrp=f ft (tiredrl 1 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredrl2sfp=f f t (tiredrl 2 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
tiredrl 2 srp=f f t (tiredrl 2 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredrl 3sfp=f f t (tiredrl 3 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
tiredrl 3 srp=f f t (tiredrl 3 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredrl 4 sfp=f f t (tiredrl 4 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
tiredrl 4 srp=f f t (tiredrl 4 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredrl 5sfp=f f t (tiredrl 5 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
tiredrl 5 srp=f f t (tiredrl 5 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredrl 6sfp=f ft (tiredrl 6 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
tiredrl 6 srp=f ft (tiredrl 6 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredrl 7 sfp=f f t (tiredrl 7 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
tiredrl 7 srp=f f t (tiredrl 7 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredrl 8 sfp=f f t (tiredrl 8 (fstirfeni, Nchp) . *wind) / ( feni-fsti+1 )*2; 
tiredrl 8 srp=f ft (tiredrl 8 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredrl 9sfp=f ft (tiredrl 9 (fstirfeni, Nchp) . *wind) / ( feni-fsti+1 )*2; 
tiredrl 9 srp=f ft (tiredrl 9 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 ) *2 ; 
tiredrllOsfp=f f t (tiredrl 10 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
tiredrl 10 srp=f ft ( tiredrllO (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredrl 1 lsfp=f ft (tiredrl 1 1 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
tiredrl 11 srp=f ft ( tiredrl 1 1 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredrl 12 sfp=f ft (tiredrl 12 ( f sti : feni , Nchp) . *wind) / (feni-fsti+l)*2; 
tiredrl 12 srp=f ft (tiredrl 12 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tiredrl 13sfp=f ft ( tiredrll3 ( f sti : feni , Nchp) . *wind) / (feni-fsti+1) *2; 
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tiredrll3srp=f ft 
tiredrl!4sfp=f ft 
tiredrl!4srp=f ft 
tiredrll5sfp=f ft 
tiredrl 15srp=f f t 
tiredrll 6sfp=f f t 
tiredrl 1 6srp=f f t 
tiredrl 17 sfp=f ft 
tiredrl 1 7 srp=f ft 
tiredrl 1 8sfp=f f t 
tiredrl 1 8 srp=f ft 
tiredrl 1 9sfp=f f t 
tiredrl 1 9srp=f f t 
tiredrl20sfp=f ft 
tiredrl20srp=f ft 
tiredrl21sfp=f ft 
tiredrl21srp=f ft 
tiredrl22sfp=f f t 
tiredrl22srp=f f t 
tiredrl23sfp=f f t 
tiredrl23srp=f f t 
tiredrl24sfp=f ft 
tiredrl24srp=f ft 
tiredrl25sfp=f f t 
tiredrl25srp=f f t 
tiredrl 2  6sfp=f f t 
tiredrl 2  6srp=f f t 
tiredrl27sfp=f f t 
tiredrl27srp=f f t 
tiredrl 2  8sfp=f f t 
tiredrl 2  8srp=f f t 
tiredrl 2  9sfp=f f t 
tiredrl 2  9srp=f f t 
tiredrl 30 sfp=f ft 
tiredrl 30 srp=f ft 


(tiredrll3 (bst 
(tiredrll4 (fst 
(tiredrll4 (bst 
(tiredrll5 (fst 
(tiredrll5 (bst 
(tiredrll6 (fst 
(tiredrll6 (bst 
(tiredrll7 (fst 
(tiredrll7 (bst 
(tiredrll8 (fst 
(tiredrll8 (bst 
(tiredrll9 (fst 
(tiredrll9 (bst 
(tiredrl20 (fst 
(tiredrl20 (bst 
(tiredrl21 (fst 
(tiredrl21 (bst 
(tiredrl22 (fst 
(tiredrl22 (bst 
(tiredrl23 (fst 
(tiredrl23 (bst 
(tiredrl24 (fst 
(tiredrl24 (bst 
(tiredrl25 (fst 
(tiredrl25 (bst 
(tiredrl26 (fst 
(tiredrl26 (bst 
(tiredrl27 (fst 
(tiredrl27 (bst 
(tiredrl28 (fst 
(tiredrl28 (bst 
(tiredrl29 (fst 
(tiredrl29 (bst 
(tiredrl30 (fst 
(tiredrl30 (bst 


i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 
i : feni , Nchp) . 
i : beni , Nchp) . 


*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 
*wind) / (feni-fstitl 
*wind) / (beni-bstitl 


%  Load  passenger  rear  tire  data 

import file ( ' PassengerRearTPl Op si  1 / Acceleration . txt ' ) ; 

tireprll=data; 

speedtprl l=speed (data,  t)  ; 

aoadtprll=angleofa (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  2/Acceleration. txt ' ) ; 

tireprl2=data; 

speedtprl2=speed (data,  t)  ; 

aoadtprl2=angleof a (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  3 /Acceleration . txt ' ) ; 

tireprl3=data; 

speedtprl3=speed (data,  t)  ; 

aoadtprl3=angleofa (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  4/Acceleration. txt ' ) ; 

tireprl4=data; 

speedtprl4=speed (data, t) ; 

aoadtprl4=angleofa (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  5/Acceleration. txt ' ) ; 

tireprl5=data; 

speedtprl5=speed (data,  t)  ; 

aoadtprl5=angleofa (data,  t)  ; 


10/7/2011 


*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 
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import file ( ' PassengerRearTPl Op si  6 /Acceleration . txt ' ) ; 

tireprl 6=data; 

speedtprl 6=speed (data,  t)  ; 

aoadtprl 6=angleof a (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  7/Acceleration . txt ' ) ; 
tireprl 7=data; 
speedtprl7=speed (data, t) ; 
aoadtprl7=angleofa (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  8 /Acceleration . txt ' ) ; 

tireprl 8=data; 

speedtprl 8=speed (data,  t)  ; 

aoadtprl 8=angleof a (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  9/Acceleration. txt ' ) ; 

tireprl 9=data; 

speedtprl 9=speed (data,  t)  ; 

aoadtprl 9=angleof a (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  1 0 /Acceleration . txt ' ) ; 
tireprl 10=data; 
speedtprll0=speed (data,  t)  ; 
aoadtpr!10=angleof a (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  1 1 /Acceleration . txt ' ) ; 
tireprl ll=data; 
speedtprlll=speed (data, t)  ; 
aoadtprlll=angleofa (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  12/Acceleration . txt ' ) ; 

tireprll2=data; 

speedtprl 12=speed (data,  t)  ; 

aoadtprll2=angleof a (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  13/Acceleration . txt ' ) ; 
tireprl 13=data; 
speedtprll3=speed (data, t) ; 
aoadtprll3=angleof a (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  14 /Acceleration . txt ' ) ; 

tireprll4=data; 

speedtprll4=speed (data,  t)  ; 

aoadtprll4=angleof a (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  15 /Acceleration . txt ' ) ; 

tireprll5=data; 

speedtprll5=speed (data, t) ; 

aoadtprll5=angleof a (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  1 6 /Acceleration . txt ' ) ; 

tireprl 1 6=data; 

speedtprl 1 6=speed (data,  t)  ; 

aoadtprll6=angleofa (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  17/Acceleration . txt ' ) ; 

tireprll7=data; 

speedtprll7=speed (data,  t)  ; 

aoadtprll7=angleof a (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  18/ Acceleration . txt 1 ) ; 

tireprl 1 8=data; 

speedtprl 1 8=speed (data, t) ; 

aoadtprll8=angleofa (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  1 9 /Acceleration . txt ' ) ; 

tireprl 19=data; 

speedtprl 1 9=speed (data,  t)  ; 

aoadtprll9=angleofa (data,  t)  ; 

importfile ( ' PassengerRearTPl Opsi  2 0 /Acceleration . txt ' ) ; 


102 


Douglas  Adams 


TCN  10009 


10/7/2011 


tireprl 2 0=data; 
speedtprl20=speed (data,  t)  ; 
aoadtprl20=angleof a (data,  t)  ; 

import file ( ' PassengerRearTPl Op si  2 1 /Acceleration . txt ' ) ; 
tireprl 2 l=data; 
speedtprl21=speed (data, t) ; 
aoadtprl2 l=angleof a (data,  t)  ; 

import file ( ' PassengerRearTPl Ops i  22 /Acceleration . txt ' ) ; 
tireprl 2 2=data; 
speedtprl22=speed (data,  t)  ; 
aoadtprl22=angleof a (data,  t)  ; 

import file ( ' PassengerRearTPl Ops i  2 3 /Acceleration . txt ' ) ; 
tireprl 2 3=data; 
speedtprl23=speed (data, t) ; 
aoadtprl23=angleof a (data,  t)  ; 

import file ( ' PassengerRearTPl Ops i  24 /Acceleration . txt ' ) ; 
tireprl 2 4=data; 
speedtprl24=speed (data,  t)  ; 
aoadtprl24=angleof a (data,  t)  ; 

import file ( ' PassengerRearTPl Ops i  2 5 /Acceleration . txt ' ) ; 
tireprl 2 5=data; 
speedtprl25=speed (data,  t)  ; 
aoadtprl25=angleof a (data,  t)  ; 

import file ( ' PassengerRearTPl Ops i  2 6 /Acceleration . txt ' ) ; 
tireprl 2 6=data; 
speedtprl26=speed (data, t) ; 
aoadtprl2 6=angleof a (data,  t)  ; 

import file ( ' PassengerRearTPl Ops i  27 /Acceleration . txt ' ) ; 
tireprl 2 7=data; 
speedtprl27=speed (data,  t)  ; 
aoadtprl27=angleof a (data,  t)  ; 

import file ( ' PassengerRearTPl Ops i  2 8 /Acceleration . txt ' ) ; 
tireprl 2 8=data; 
speedtprl28=speed (data, t) ; 
aoadtpr!2 8=angleof a (data,  t)  ; 

import file ( ' PassengerRearTPl Ops i  2 9 /Acceleration . txt ' ) ; 
tireprl 2 9=data; 
speedtprl2 9=speed (data,  t)  ; 
aoadtprl2 9=angleof a (data,  t)  ; 

import file ( ' PassengerRearTPl Ops i  30 /Acceleration . txt ' ) ; 

tireprl30=data; 

speedtprl30=speed (data,  t)  ; 

aoadtpr!30=angleof a (data,  t)  ; 


tireprllsf=f ft (tireprll (fsti : feni,  Nchd) 
tireprllsr=f ft (tireprll (bsti :beni, Nchd) 
tireprl2sf=f ft (tireprl2 (fsti : feni, Nchd) 
tireprl2sr=f ft (tireprl2 (bsti :beni, Nchd) 
tireprl3sf=f ft (tireprl3 (fsti : feni, Nchd) 
tireprl3sr=f ft (tireprl3 (bsti :beni, Nchd) 
tireprl4sf=f ft (tireprl4 (fsti : feni, Nchd) 
tireprl4sr=f ft (tireprl4 (bsti :beni, Nchd) 
tireprl5sf=f ft (tireprl5 (fsti : feni, Nchd) 
tireprl5sr=f ft (tireprl5 (bsti :beni, Nchd) 
tireprl 6sf =f f t (tireprl6 (fsti : feni, Nchd) 
tireprl 6sr=f f t (tireprl 6 (bsti :beni, Nchd) 
tireprl 7 sf=f ft (tireprl 7 (fsti : feni,  Nchd) 


,*wind) / (feni-fstitl 
,*wind) / (beni-bsti+1 
,*wind) / (feni-fsti+1 
,*wind) / (beni-bsti+1 
,*wind) / (feni-fsti+1 
,*wind) / (beni-bsti+1 
,*wind) / (feni-fsti+1 
,*wind) / (beni-bsti+1 
,*wind) / (feni-fsti+1 
,*wind) / (beni-bsti+1 
,*wind) / (feni-fsti+1 
,*wind) / (beni-bsti+1 
,*wind) / (feni-fsti+1 


*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 

*2; 
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tireprl7sr=f f t ( tireprl7 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 8sf =f f t ( tirepr!8 ( f sti : f eni , Nchd) . *wind) / ( feni-f sti+1 ) *2 ; 
tireprl 8sr=f f t (tireprl 8 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 9sf=f ft (tireprl 9 ( f sti : f eni , Nchd) . *wind) / ( feni-f sti+1 ) *2 ; 
tireprl 9 sr=f ft (tireprl 9 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl lOsf =f ft (tireprl 10 ( f sti : f eni , Nchd) . *wind) / ( feni-f sti+1 ) *2 ; 
tireprl 10 sr=f ft (tireprl 10 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 11 sf=f ft (tireprl 11 ( f sti : f eni , Nchd) . *wind) / ( feni-f sti+1 ) *2; 
tireprl 1 lsr=f f t ( tireprl 1 1 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 12 sf=f ft (tireprl 12 ( f sti : f eni , Nchd) . *wind) / ( feni-f sti+1 ) *2; 
tireprl 12 sr=f ft (tireprl 12 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 13sf=f ft (tireprl 13 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl 13sr=f ft (tireprl 13 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 ) *2 ; 
tireprll4sf=f f t (tireprl 14 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl 14 sr=f ft (tireprl 14 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 15sf=f ft (tireprl 15 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl 15sr=f ft (tireprl 15 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 ) *2 ; 
tireprl 16sf=fft (tireprl 16 (fsti:feni, Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl 1 6sr=f ft ( tireprl 1 6 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 17 sf=f ft (tireprl 17 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl 17sr=f ft (tireprl 17 (bsti : beni , Nchd)  . *wind) / (beni-bsti  +  1 ) *2  ; 
tireprl 18sf=fft (tireprl 18 ( f sti : feni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl 1 8sr=f f t (tireprl 18 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 1 9sf=f ft ( tireprl 1 9 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl 1 9sr=f f t (tireprl 19 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl20sf =f f t ( tireprl20 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl20sr=f f t ( tireprl20 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tireprl21sf=f f t ( tireprl21 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl 2 lsr=f f t ( tireprl 2 1 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tireprl22sf=f f t ( tireprl22 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl22sr=f f t ( tireprl22 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tireprl23sf=f f t ( tireprl23 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl23sr=f f t ( tireprl23 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tireprl24sf =f f t ( tireprl24 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl24sr=f f t ( tireprl24 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tireprl25sf =f f t ( tireprl25 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl25sr=f f t ( tireprl25 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tireprl 2  6sf=f f t ( tireprl 2  6 ( f sti : f eni , Nchd)  . *wind) / (feni-fsti  +  1) *2; 
tireprl 2  6sr=f f t ( tireprl 2  6 (bsti : beni , Nchd)  . *wind) / (beni-bsti  +  1 )*2; 
tireprl27sf=f f t ( tireprl27 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl27sr=f f t ( tireprl27 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 
tireprl 2  8sf=f f t ( tireprl 2  8 ( f sti : f eni , Nchd)  . *wind) / (feni-fsti  +  1) *2; 
tireprl 2  8sr=f f t ( tireprl 2  8 (bsti : beni , Nchd)  . *wind) / (beni-bsti  +  1 )*2; 
tireprl 2  9sf =f f t ( tireprl 2  9 ( f sti : f eni , Nchd)  . *wind) / (feni-fsti  +  1) *2; 
tireprl 2  9sr=f f t ( tireprl 2  9 (bsti : beni , Nchd)  . *wind) / (beni-bsti  +  1 )*2; 
tireprl 30 sf =f f t (tireprl 30 ( f sti : f eni , Nchd) . *wind) / (feni-fsti+1) *2; 
tireprl 30sr=f f t (tireprl 30 (bsti : beni , Nchd) . *wind) / (beni-bsti+1 )*2; 

tireprl lsfp=f ft (tireprl 1 (fstirfeni, Nchp) . *wind) / ( feni-fsti+1 )*2; 
tireprl lsrp=f ft (tireprl 1 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tireprl2sfp=f f t (tireprl 2 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
tireprl 2 srp=f f t (tireprl 2 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tireprl 3sfp=f f t (tireprl 3 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
tireprl 3 srp=f f t (tireprl 3 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tireprl 4 sfp=f f t (tireprl 4 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 )*2; 
tireprl 4 srp=f f t (tireprl 4 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tireprl 5sfp=f f t (tireprl 5 ( f sti : feni , Nchp) . *wind) / ( feni-fsti+1 ) *2 ; 
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tireprl5srp=f f t ( tireprl5 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 6sfp=f f t ( tireprl 6 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tireprl 6srp=f f t (tireprl 6 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 7 sfp=f f t (tireprl 7 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tireprl 7 srp=f f t (tireprl 7 (bsti : beni ,  Nchp)  . *wind) / (beni-bsti  +  1 )  *2 ; 
tireprl 8 sfp=f f t (tireprl 8 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tireprl 8 srp=f ft (tireprl 8 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 9sfp=f ft (tireprl 9 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tireprl 9 srp=f ft (tireprl 9 (bsti : beni ,  Nchp)  . *wind) / (beni-bsti  +  1 )  *2 ; 
tireprl 10sfp=f ft ( tireprllO ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tireprl 10srp=f f t (tireprllO (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 11 sfp=f ft ( tireprl 1 1 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tireprl 11 srp=f ft ( tireprl 1 1 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 12 sfp=f f t (tireprl 12 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tireprl 12 srp=f ft (tireprl 12 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 13sfp=f f t ( tireprll3 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tireprl 13srp=f ft ( tireprll3 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 14 sfp=f ft ( tireprll4 ( f sti : feni ,  Nchp)  . *wind) / ( f eni-f sti  +  1 )  *2 ; 
tireprl 1 4 srp=f f t ( tireprll4 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )  *2 ; 
tireprl 15sfp=f ft ( tireprll5 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )  *2 ; 
tireprl 15srp=f f t (tireprl 15 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 ) *2 ; 
tireprl 1 6sfp=f f t ( tireprl 1 6 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 ) *2 ; 
tireprl 1 6srp=f f t ( tireprl 1 6 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tireprl 1 7 sfp=f f t (tireprl 17 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tireprl 17 srp=f ft ( tirepr!17 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 ) *2 ; 
tireprll8sfp=f f t ( tireprll8 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 ) *2; 
tireprl 1 8srp=f f t ( tireprl 1 8 (bsti : beni ,  Nchp)  . *wind) / (beni-bsti  +  1 ) *2 ; 
tireprl 1 9sfp=f f t ( tireprl 1 9 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tireprl 1 9srp=f ft ( tireprl 1 9 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tireprl20sfp=f f t ( tireprl20 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tireprl20srp=f f t ( tireprl20 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tireprl21sfp=f f t ( tireprl 2 1 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tireprl21srp=f f t ( tireprl 2 1 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tireprl22sfp=f f t ( tireprl22 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 ) *2 ; 
tireprl22srp=f f t ( tireprl22 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tireprl2  3sfp=f f t ( tireprl2  3 ( f sti : feni ,  Nchp)  . *wind) / ( f eni-f sti  +  1 ) *2  ; 
tireprl23srp=f f t ( tireprl23 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tireprl24sfp=f f t ( tireprl24 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tireprl24srp=f f t ( tireprl24 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tireprl25sfp=f f t ( tireprl25 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tireprl25srp=f f t ( tireprl25 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 )*2; 
tireprl 2  6sfp=f f t ( tireprl 2  6 ( f sti : feni , Nchp)  . *wind) / ( f eni-f sti  +  1 ) *2 ; 
tireprl 2  6srp=f f t ( tireprl 2  6 (bsti : beni , Nchp)  . *wind) / (beni-bsti  +  1 )*2; 
tireprl27sfp=f f t ( tireprl27 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tireprl2  7srp=f f t ( tireprl2  7 (bsti : beni ,  Nchp)  . *wind) / (beni-bsti  +  1 )*2; 
tireprl 2  8sfp=f f t ( tireprl2  8 ( f sti : feni , Nchp)  . *wind) / ( f eni-f sti  +  1 )*2; 
tireprl 2  8srp=f f t ( tireprl 2  8 (bsti : beni , Nchp)  . *wind) / (beni-bsti  +  1 )*2; 
tireprl 2  9sfp=f f t ( tireprl 2  9 ( f sti : feni , Nchp)  . *wind) / ( f eni-f sti  +  1 ) *2 ; 
tireprl 2  9srp=f f t ( tireprl 2  9 (bsti : beni , Nchp)  . *wind) / (beni-bsti  +  1 )*2; 
tireprl 30 sfp=f f t (tireprl 30 ( f sti : feni , Nchp) . *wind) / ( f eni-f sti+1 )*2; 
tireprl 30 srp=f f t (tireprl 30 (bsti : beni , Nchp) . *wind) / (beni-bsti+1 ) *2 ; 

Loop  through  diagnostic  parameters  (thresholds,  etc.) 
to  generate  receiver  operating  characteristic 

for  kk=l : 10 , 
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temp=linspace ( 0 . 1 , 4 ,  1 0 ) ;  %  Iterate  on  threshold  for  fault  detection 
O.lsigma  to  4sigma 
thresh=temp (kk) 

%  Best  ranges  for  front  tire  pressure  faults 
frng= [round (1+20/f (2) )  : round ( 1  +  30 /f (2  )  ) 

round (1  +  60/f (2) )  : round ( 1  +  80/f (2  )  )  round (1  +  95/f (2) )  : round (1  +  110/f (2) ) 
round (1+140/f (2) ) : round (1+180/f (2) ) ] ;  %  Best  for  z  direction 
acceleration 

f rng= [round (1+20/f (2) ) : round ( 1+30 /f (2 ) ) 

round (1  +  60/f (2) )  : round (1  +  80/f (2  )  )  round (1  +  95/f (2) )  : round (1  +  110/f (2) ) ] ; 
%  Best  for  z  direction  acceleration 

%f rng= [round ( 1  +  10/f (2 ) )  : round ( 1  +  15/f (2 )  )  ]  ;  %  Best  for  Y  direction 
acceleration 

%frng= [round ( 1+10/f (2 )): round ( 1+15/f (2 ))] ;  %  Best  for  x  direction 
acceleration 


%  Regression  analysis  of  baseline  data 

X=[speedbll  speedbl2  speedbl3  speedbl4  speedbl5  speedbl6  speedbl7 
speedbl8  speedbl9  . . . 

speedbllO  speedblll  speedbll2  speedbll3  speedbll4  speedbll5 
speedbll6  speedbll7  speedbll8  ... 

speedbll9  speedbl20  speedbl21  speedbl22  speedbl23  speedbl24 
speedbl25  speedbl26  speedbl27  ... 

speedbl28  speedbl29  speedbl30  speedb21  speedb22  speedb23  speedb24 
speedb25  speedb26  . . . 

speedb27  speedb28  speedb29  speedb210  speedb211  speedb31  speedb32 
speedb33  speedb34  speedb35  speedb36  . . . 

speedb37  speedb38  speedb39  speedb310  speedb311  speedb41  speedb42 
speedb43  speedb44  speedb45  speedb46  . . . 

speedb47  speedb48  speedb49  speedb410  speedb411  speedb51  speedb52 
speedb53  speedb54  speedb55  speedb56  .  .  . 

speedb57  speedb58  speedb59  speedb510  speedb511]; 

Y=[aoadbll  aoadbl2  aoadbl3  aoadbl4  aoadbl5  aoadbl6  aoadbl7  aoadbl8 
aoadbl9  . .  . 

aoadbllO  aoadblll  aoadbll2  aoadbll3  aoadbll4  aoadbll5  aoadbll6 
aoadbll7  aoadbll8  ... 

aoadbll9  aoadbl20  aoadbl21  aoadbl22  aoadbl23  aoadbl24  aoadbl25 
aoadbl26  aoadbl27  ... 

aoadbl28  aoadbl29  aoadbl30  aoadb21  aoadb22  aoadb23  aoadb24  aoadb25 
aoadb26  . . . 

aoadb27  aoadb28  aoadb29  aoadb210  aoadb211  aoadb31  aoadb32  aoadb33 
aoadb34  aoadb35  aoadb36  . . . 

aoadb37  aoadb38  aoadb39  aoadb310  aoadb311  aoadb41  aoadb42  aoadb43 
aoadb44  aoadb45  aoadb46  . . . 

aoadb47  aoadb48  aoadb49  aoadb410  aoadb411  aoadb51  aoadb52  aoadb53 
aoadb54  aoadb55  aoadb56  . . . 

aoadb57  aoadb58  aoadb59  aoadb510  aoadb511]; 


Calculate  indices  for  use  in  regression  analysis 


%  Driver  front 

fibd= [sum (abs (basellsf (frng) ) )  sum (abs (basel2sf (frng) ) ) 
sum(abs (basel3sf (frng) ) )  ... 
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surafabs (basel4sf (frng) ) ) 
surafabs (basel6sf (frng) )  )  ... 

surafabs (basel7sf (frng)  )  ) 
surafabs (basel9sf (frng) )  )  ... 

surafabs (basellOsf (frng) ) ) 
surafabs (basell2sf (frng) ) )  . . . 

surafabs (basell3sf (frng) ) ) 
surafabs (basel!5sf (frng)  )  )  .  .  . 

surafabs (basell6sf (frng) ) ) 
surafabs (basel!8sf (frng) ) )  . . . 

sum(abs (basell9sf (frng)  )  ) 
surafabs (basel21sf (frng) ) )  . . . 

surafabs (basel22sf (frng)  )  ) 
surafabs (basel24sf (frng) ) )  . . . 

surafabs (basel25sf (frng) ) ) 
surafabs (basel27sf (frng) ) )  . . . 

surafabs (basel28sf (frng) ) ) 
surafabs (basel30sf (frng) ) ) ] ; 
fib2d= [sum (abs (base21sf (frng) 
surafabs (base23sf (frng) ) )  ... 

surafabs (base24sf (frng) ) ) 
surafabs (base26sf (frng) ) )  ... 

sura(abs (base27sf (frng) ) ) 
surafabs (base29sf (frng) ) )  ... 

surafabs (base210sf (frng) ) ) 
fib3d= [sum (abs (base31sf (frng) 
sum(abs (base33sf (frng) ) )  ... 

sum(abs (base34sf (frng) ) ) 
sum(abs (base36sf (frng)  )  )  ... 

sum(abs (base37sf (frng)  )  ) 
sum(abs (base39sf (frng) ) )  ... 

sum(abs (base310sf (frng) ) ) 
fib4d= [sum (abs (base41sf (frng) 
sum(abs (base43sf (frng) ) )  ... 

sum(abs (base44sf (frng)  )  ) 
sum(abs (base46sf (frng)  )  )  ... 

sum(abs (base47sf (frng) ) ) 
sum(abs (base49sf (frng)  )  )  ... 

sum(abs (base410sf (frng)  )  ) 
fib5d= [sum (abs (base51sf (frng) 
sum(abs (base53sf (frng) ) )  ... 

sum(abs (base54sf (frng) ) ) 
sum(abs (base56sf (frng)  )  )  ... 

sum(abs (base57sf (frng)  )  ) 
sum(abs (base59sf (frng)  )  )  ... 

sum(abs (base510sf (frng)  )  ) 

Zd=[fibd  fib2d  fib3d  fib4d  fa 

%  Curve  fit  baseline  driver 
pd=polyf it (X,  Zd,  2  )  ; 
md=mean (Zd- (pd (1) *X. A2+pd (2 
stdd=std ( Zd- (pd ( 1 ) *X . A2+pd ( 


sum(abs (basel5sf (frng) ) ) 

sum(abs (basel8sf (frng) ) ) 

sum(abs (baselllsf (frng) ) ) 

sum(abs (basell4sf (frng) ) ) 

sum(abs (basell7sf (frng) ) ) 

sum(abs (basel20sf (frng) ) ) 

sum(abs (basel23sf (frng) ) ) 

sum(abs (basel26sf (frng) ) ) 

sum(abs (basel29sf (frng) ) ) 

) )  sum(abs (base22sf (frng) ) ) 

sum(abs (base25sf (frng) ) ) 

sum(abs (base28sf (frng) ) ) 

sum(abs (base211sf (frng) ) ) ]  ; 
) )  sum(abs (base32sf (frng)  )  ) 

sum(abs (base35sf (frng) ) ) 

sum(abs (base38sf (frng) ) ) 

sum(abs (base311sf (frng) ) ) ] ; 
) )  sum(abs (base42sf (frng) ) ) 

sum(abs (base45sf (frng) ) ) 

sum(abs (base48sf (frng) ) ) 

sum(abs (base411sf (frng) ) ) ] ; 
) )  sum(abs (base52sf (frng) ) ) 

sum(abs (base55sf (frng) ) ) 

sum(abs (base58sf (frng) ) ) 

sum(abs (base511sf (frng) ) ) ] ; 

b5d]  ; 

front 

) *X+pd ( 3 ) ) ) ; 

2 ) *X+pd ( 3 ) ) ) ; 


%  Driver  rear 

fibdr= [sum (abs (basellsr (frng) ) )  sum (abs (basel2sr (frng) ) ) 
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sum (abs (basel3sr (frng) ) )  ... 

sum (abs (basel4sr (frng)  )  ) 
sum (abs (basel6sr (frng) ) )  ... 

sum (abs (basel7sr (frng)  )  ) 
sum (abs (basel9sr (frng) ) )  ... 

sum (abs (basellOsr (frng) ) 
sum (abs (basel!2sr (frng) )  )  .. 

sum (abs (basell3sr (frng) ) 
sum (abs (basell5sr (frng)  )  )  .. 

sum (abs (basell6sr (frng) ) 
sum (abs (basell8sr (frng)  )  )  .. 

sum (abs (basell9sr (frng) ) 
sum (abs (basel21sr (frng) )  )  .. 

sum (abs (basel22sr (frng) ) 
sum (abs (basel24sr (frng) ) )  .. 

sum (abs (basel25sr (frng)  ) 
sum (abs (basel27sr (frng) ) )  .. 

sum (abs (basel28sr (frng)  ) 
sum (abs (basel30sr (frng) ) ) ] ; 
fib2dr= [sum (abs (base21sr (frn 
sum (abs (base23sr (frng) ) )  ... 

sum (abs (base24sr (frng) ) ) 
sum (abs (base26sr (frng) ) )  ... 

sum (abs (base27sr (frng) ) ) 
sum (abs (base29sr (frng) ) )  ... 

sum (abs (base210sr (frng) ) 
fib3dr= [sum (abs (base31sr (frn 
sum (abs (base33sr (frng) ) )  ... 

sum (abs (base34sr (frng) ) ) 
sum (abs (base36sr (frng)  )  )  ... 

sum (abs (base37sr (frng) ) ) 
sum (abs (base39sr (frng)  )  )  ... 

sum (abs (base310sr (frng) ) 
fib4dr= [sum (abs (base41sr (frn 
sum (abs (base43sr (frng) ) )  ... 

sum (abs (base44sr (frng) ) ) 
sum (abs (base46sr (frng) ) )  ... 

sum (abs (base47sr (frng) ) ) 
sum (abs (base49sr (frng) ) )  ... 

sum (abs (base410sr (frng) ) 
fib5dr= [sum (abs (base51sr (frn 
sum (abs (base53sr (frng) ) )  ... 

sum (abs (base54sr (frng) ) ) 
sum (abs (base56sr (frng)  )  )  ... 

sum (abs (base57sr (frng) ) ) 
sum (abs (base59sr (frng)  )  )  ... 

sum (abs (base510sr (frng) ) 


sum (abs (basel5sr (frng) ) ) 

sum (abs (basel8sr (frng) ) ) 

)  sum (abs (baselllsr (frng) ) ) 

)  sum (abs (basel!4sr (frng) ) ) 

)  sum (abs (basell7sr (frng) ) ) 

)  sum (abs (basel20sr (frng) ) ) 

)  sum (abs (basel23sr (frng)  )  ) 

)  sum (abs (basel26sr (frng) ) ) 

)  sum (abs (basel29sr (frng) ) ) 

g) ) )  sum (abs (base22sr (frng) 

sum (abs (base25sr (frng) ) ) 

sum (abs (base28sr (frng) ) ) 

)  sum (abs (base211sr (frng) ) ) 
g) ) )  sum (abs (base32sr (frng) 

sum (abs (base35sr (frng) ) ) 

sum (abs (base38sr (frng) ) ) 

)  sum (abs (base311sr (frng) ) ) 
g) ) )  sum (abs (base42sr (frng) 

sum (abs (base45sr (frng) ) ) 

sum (abs (base48sr (frng) ) ) 

)  sum (abs (base411sr (frng) ) ) 
g) ) )  sum (abs (base52sr (frng) 

sum (abs (base55sr (frng) ) ) 

sum (abs (base58sr (frng) ) ) 

)  sum (abs (base511sr (frng) ) ) 


Zdr=[fibdr  fib2dr  fib3dr  fib4dr  fib5dr] ; 


%  Curve  fit  baseline  driver  rear 
pdr=polyf it (X,  Zdr ,  2  )  ; 

mdr=mean (Zdr- (pdr (1) *X. A2+pdr (2) *X+pdr (3) ) ) ; 
stddr=std (Zdr- (pdr (1) *X. A2+pdr (2) *X+pdr (3) ) )  ; 

%  Passenger  front 


10/7/2011 
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fibp= [sum (abs (basellsfp (frng) ) 
sum (abs (basel3sfp (frng) ) )  ... 

sum (abs (basel4sfp (frng)  )  ) 
sum (abs (basel6sfp (frng) ) )  ... 

sum (abs (basel7sfp (frng) ) ) 
sum (abs (basel9sfp (frng)  )  )  ... 

sum (abs (basellOsfp (frng) ) ) 
sum (abs (basel!2sfp (frng) ) )  ... 

sum (abs (basell3sfp (frng) ) ) 
sum (abs (basel!5sfp (frng) ) )  ... 

sum (abs (basell6sfp (frng) ) ) 
sum  (abs (basell8sfp (frng) )  )  ... 

sum (abs (basell9sfp (frng) ) ) 
sum (abs (basel21sfp (frng)  )  )  ... 

sum (abs (basel22sfp (frng) ) ) 
sum (abs (basel24sfp (frng)  )  )  ... 

sum (abs (basel25sfp (frng) ) ) 
sum (abs (basel27sfp (frng) ) )  ... 

sum (abs (basel2  8sfp (frng)  )  ) 
sum (abs (basel30sfp (frng) ) ) ]  ; 
fib2p= [sum (abs (base21sfp (frng) 
sum (abs (base23sfp (frng) ) )  ... 

sum (abs (base24sfp (frng) ) ) 
sum (abs (base26sfp (frng) )  )  ... 

sum (abs (base27sfp (frng) ) ) 
sum (abs (base29sfp (frng) )  )  ... 

sum (abs (base210sfp (frng) ) ) 
fib3p= [sum (abs (base31sfp (frng) 
sum (abs (base33sfp (frng) ) )  ... 

sum (abs (base34sfp (frng) ) ) 
sum (abs (base36sfp (frng)  )  )  ... 

sum (abs (base37sfp (frng) ) ) 
sum (abs (base39sfp (frng) )  )  ... 

sum (abs (base310sfp (frng) ) ) 
fib4p= [sum (abs (base41sfp (frng) 
sum (abs (base43sfp (frng) ) )  ... 

sum (abs (base44sfp (frng) ) ) 
sum (abs (base46sfp (frng) ) )  ... 

sum (abs (base4  7sfp (frng)  )  ) 
sum (abs (base49sfp (frng) ) )  ... 

sum (abs (base410sfp (frng) ) ) 
fib5p= [sum (abs (base51sfp (frng) 
sum (abs (base53sfp (frng) ) )  ... 

sum (abs (base54sfp (frng) ) ) 
sum (abs (base56sfp (frng) ) )  ... 

sum (abs (base57sfp (frng) ) ) 
sum (abs (base59sfp (frng) ) )  ... 

sum (abs (base510sfp (frng) ) ) 


)  sum (abs (basel2sfp (frng) ) ) 

sum (abs (basel5sfp (frng) ) ) 

sum (abs (basel8sfp (frng) ) ) 

sum (abs (baselllsfp (frng) ) ) 

sum (abs (basell4sfp (frng) ) ) 

sum (abs (basell7sfp (frng) ) ) 

sum (abs (basel20sfp (frng) ) ) 

sum (abs (basel23sfp (frng) ) ) 

sum (abs (basel26sfp (frng) ) ) 

sum (abs (basel29sfp (frng) ) ) 

))  sum (abs (base22sfp (frng) ) ) 

sum (abs (base25sfp (frng) ) ) 

sum (abs (base28sfp (frng) ) ) 

sum (abs (base211sfp (frng) ) ) ] ; 
))  sum (abs (base32sfp (frng) ) ) 

sum (abs (base35sfp (frng) ) ) 

sum (abs (base38sfp (frng) ) ) 

sum (abs (base311sfp (frng) ) ) ] ; 
))  sum (abs (base42sfp (frng) ) ) 

sum (abs (base45sfp (frng) ) ) 

sum (abs (base48sfp (frng) ) ) 

sum (abs (base411sfp (frng) ) ) ] ; 
))  sum (abs (base52sfp (frng)  )  ) 

sum (abs (base55sfp (frng) ) ) 

sum (abs (base58sfp (frng) ) ) 

sum (abs (base511sfp (frng) )  )  ]  ; 


Zp=[fibp  fib2p  fib3p  fib4p  fib5p] ; 

%  Curve  fit  baseline  passenger  front 
pp=polyfit (X, Zp, 2) ; 

mp=mean (Zp- (pp (1) *X. A2+pp (2) *X+pp (3) ) ) ; 
stdp=std (Zp- (pp (1) *X. A2+pp (2) *X+pp (3) ) ) ; 
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sum (abs (basel5srp (frng) ) ) 
sum (abs (basel8srp (frng) ) ) 
sum (abs (baselllsrp (frng) ) ) 
sum (abs (basell4srp (frng) ) ) 
sum (abs (basell7srp (frng) ) ) 
sum (abs (basel20srp (frng) ) ) 
sum (abs (basel23srp (frng) ) ) 
sum (abs (basel26srp (frng) ) ) 
sum (abs (base!29srp (frng) ) ) 


%  Passenger  rear 

fibpr= [sum (abs (basellsrp (frng) ) )  sum (abs (basel2srp (frng) ) 
sum (abs (basel3srp (frng) )  )  ... 

sum (abs (basel4srp (frng) ) ) 
sum (abs (basel6srp (frng)  )  )  ... 

sum (abs (basel7srp (frng) ) ) 
sum (abs (basel9srp (frng) ) )  ... 

sum (abs (basellOsrp (frng) ) ) 
sum (abs (basell2srp (frng) ) )  ... 

sum (abs (basell3srp (frng) ) ) 
sum (abs (basell5srp (frng) ) )  ... 

sum (abs (basell6srp (frng) ) ) 
sum (abs (basell8srp (frng)  )  )  ... 

sum (abs (basell9srp (frng) ) ) 
sum (abs (basel21srp (frng) )  )  ... 

sum (abs (basel22srp (frng) ) ) 
sum (abs (basel24srp (frng) ) )  ... 

sum (abs (basel25srp (frng) ) ) 
sum (abs (basel27srp (frng) ) )  ... 

sum (abs (basel28srp (frng) ) ) 
sum (abs (basel30srp (frng) ) ) ] ; 

fib2pr= [sum (abs (base21srp (frng) ) )  sum (abs (base22srp (frng) 
sum (abs (base23srp (frng) ) )  ... 

sum (abs (base24srp (frng) ) )  sum (abs (base25srp (frng) ) ) 
sum (abs (base26srp (frng) ) )  ... 

sum (abs (base27srp (frng) ) )  sum (abs (base28srp (frng) ) ) 
sum (abs (base29srp (frng) ) )  ... 

sum (abs (base210srp (frng) ) )  sum (abs (base211srp (frng) ) ) 
fib3pr= [sum (abs (base31srp (frng) ) )  sum (abs (base32srp (frng) 
sum (abs (base33srp (frng) ) )  ... 

sum (abs (base34srp (frng) ) )  sum (abs (base35srp (frng) ) ) 
sum (abs (base36srp (frng) ) )  ... 

sum (abs (base37srp (frng) ) )  sum (abs (base38srp (frng) ) ) 
sum (abs (base39srp (frng) ) )  ... 

sum (abs (base310srp (frng) ) )  sum (abs (base311srp (frng) ) ) 
fib4pr= [sum (abs (base41srp (frng) ) )  sum (abs (base42srp (frng) 
sum (abs (base43srp (frng) ) )  ... 

sum (abs (base44srp (frng) ) )  sum (abs (base45srp (frng) ) ) 
sum (abs (base46srp (frng)  )  )  ... 

sum (abs (base47srp (frng) ) )  sum (abs (base48srp (frng) ) ) 
sum (abs (base49srp (frng) ) )  ... 

sum (abs (base410srp (frng) ) )  sum (abs (base411srp (frng) ) ) 
fib5pr= [sum (abs (base51srp (frng) ) )  sum (abs (base52srp (frng) 
sum (abs (base53srp (frng) ) )  ... 

sum (abs (base54srp (frng) ) )  sum (abs (base55srp (frng) ) ) 
sum (abs (base56srp (frng)  )  )  ... 

sum (abs (base57srp (frng) ) )  sum (abs (base58srp (frng) ) ) 
sum (abs (base59srp (frng)  )  )  ... 

sum (abs (base510srp (frng) ) )  sum (abs (base511srp (frng) ) ) 


) 


Zpr=[fibpr  fib2pr  fib3pr  fib4pr  fib5pr] ; 


%  Curve  fit  baseline  passenger  rear 
ppr=polyf it (X, Zpr , 2 ) ; 

mpr=mean (Zpr- (ppr (1) *X. '"'2+ppr (2) *X+ppr (3) ) )  ; 
stdpr=std (Zpr- (ppr (1) *X. A2+ppr (2) *X+ppr (3) ) ) ; 
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%  Count  number  of  false  positives/negatives  for  baseline 

%  Driver  front 
f lagd=0 ; 
for  ii=l:74, 

if  Zd(ii)  >  pd (1) *X (ii) A2+pd (2) *X (ii) +pd (3) +thresh*stdd, 
f lagd=f lagd+1 ; 

elseif  Zd(ii)  <  pd (1) *X (ii) A2+pd (2) *X (ii) +pd (3) -thresh*stdd, 
f lagd=f lagd+1 ; 

end 

end 

NoFPd=f lagd; 

%  Passenger  front 
f lagp=0 ; 
for  ii=l:74, 

if  Zp(ii)  >  pp (1) *X (ii) A2+pp (2) *X (ii) +pp (3) +thresh*stdp, 
f lagp=f lagp+1 ; 

elseif  Zp(ii)  <  pp (1) *X (ii) A2+pp (2) *X (ii) +pp (3) -thresh*stdp, 
f lagp=f lagp+1 ; 

end 

end 

NoFPp=f lagp; 

%  Driver  rear 
f lagd=0 ; 
for  ii=l:74, 

if  Zdr(ii)  >  pdr (1) *X (ii) A2+pdr (2) *X (ii) +pdr (3) +thresh*stddr, 
f lagd=f lagd+1 ; 

elseif  Zdr(ii)  <  pdr (1) *X (ii) A2+pdr (2) *X (ii) +pdr (3) -thresh*stddr, 
flagd=f lagd+1 ; 

end 

end 

NoFPdr=f lagd; 

%  Passenger  rear 
f lagp=0 ; 
for  ii=l:74, 

if  Zpr(ii)  >  ppr (1) *X (ii) A2+ppr (2) *X (ii) +ppr (3) +thresh*stdpr, 
f lagp=f lagp+1 ; 

elseif  Zpr(ii)  <  ppr (1) *X (ii) A2+ppr (2) *X (ii) +ppr (3) -thresh*stdpr, 
f lagp=f lagp+1 ; 

end 

end 

NoFPpr=f lagp; 

%  Define  damage  indices  for  driver  front  tire  fault 
Ztdf= [sum (abs (tiredfllsf (frng) ) )  sum (abs (tiredf 12 sf (frng) ) ) 
sum(abs (tiredfl3sf (frng) ) )  ... 

sum(abs (tiredfl4sf (frng) ) )  sum(abs (tiredfl5sf (frng) ) ) 
sum(abs (tiredfl6sf (frng) ) )  sum(abs (tiredfl7sf (frng) ) )  ... 

sum(abs (tiredfl8sf (frng) ) )  sum(abs (tiredfl9sf (frng) ) ) 
sum(abs (tiredfllOsf (frng) ) )  sum(abs (tiredflllsf (frng) ) )  ... 

sum(abs (tiredfll2sf (frng) ) )  sum(abs (tiredfll3sf (frng) ) ) 
sum(abs (tiredfll4sf (frng) ) )  sum(abs (tiredfll5sf (frng) ) )  ... 
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sum(abs (tiredfll6sf (frng) ) )  sum(abs (tiredfll7sf (frng) ) ) 
sum(abs (tiredfll8sf (frng) ) )  sum(abs (tiredfll9sf (frng) ) )  ... 

sum(abs (tiredfl20sf (frng) ) )  sum(abs (tiredf!21sf (frng) ) ) 
sum(abs (tiredfl22sf (frng) ) )  sum(abs (tiredfl23sf (frng) ) )  ... 

sum(abs (tiredfl24sf (frng) ) )  sum(abs (tiredfl25sf (frng) ) ) 
sum(abs (tiredfl26sf (frng) ) )  sum(abs (tiredfl27sf (frng) ) )  ... 

sum(abs (tiredfl28sf (frng) ) )  sum(abs (tiredfl29sf (frng) ) ) 
sum(abs (tiredfl30sf (frng) ) ) ]  ; 

Ztdfp= [sum (abs (tiredf llsfp (frng) ) )  sum (abs (tiredf 12sfp (frng) ) ) 
sum (abs (tiredfl3sfp (frng)  )  )  ... 

sum (abs (tiredf 14 sfp (frng) ) )  sum (abs (tiredf 15sfp (frng) ) ) 
sum (abs (tiredf 16sfp (frng) ) )  sum (abs (tiredfl7sfp (frng) ) )  ... 

sum (abs (tiredf 18 sfp (frng) ) )  sum (abs (tiredf 19sfp (frng) ) ) 
sum (abs (tiredf llOsfp (frng) ) )  sum (abs (tiredflllsfp (frng) ) )  ... 

sum (abs (tiredf 112 sfp (frng) ) )  sum (abs (tiredf 11 3sfp (frng) ) ) 
sum (abs (tiredf 114sfp (frng) ) )  sum (abs (tiredf 115sfp (frng) ) )  ... 

sum (abs (tiredf 11 6sfp (frng) ) )  sum (abs (tiredf 117sfp (frng) ) ) 
sum (abs (tiredf 118sfp (frng) ) )  sum (abs (tiredf 119sfp (frng) ) )  ... 

sum (abs (tiredf 120 sfp (frng) ) )  sum (abs (tiredf 121 sfp (frng) ) ) 
sum (abs (tiredf 122sfp (frng) ) )  sum (abs (tiredf 123sfp (frng) ) )  ... 

sum (abs (tiredf 12 4 sfp (frng) ) )  sum (abs (tiredf 12 5sfp (frng) ) ) 
sum (abs (tiredf 126sfp (frng) ) )  sum (abs (tiredfl27sfp (frng) ) )  ... 

sum (abs (tiredf 12 8 sfp (frng) ) )  sum (abs (tiredf 12 9sfp (frng) ) ) 
sum (abs (tiredf 130 sfp (frng)  ))]; 

Ztdfr= [sum (abs (tiredf 11 sr (frng) ) )  sum (abs (tiredfl2sr (frng) ) ) 
sum (abs (tiredfl3sr (frng) ) )  ... 

sum (abs (tiredf 14 sr (frng) ) )  sum (abs (tiredfl5sr (frng) ) ) 
sum (abs (tiredfl6sr (frng) ) )  sum (abs (tiredf 17sr (frng) ) )  ... 

sum (abs (tiredf 18 sr (frng) ) )  sum (abs (tiredfl9sr (frng) ) ) 
sum (abs (tiredfllOsr (frng) ) )  sum (abs (tiredflllsr (frng) ) )  ... 

sum (abs ( tiredf 1 12 sr (frng) ) )  sum (abs (tiredf 11 3sr (frng) ) ) 
sum (abs (tiredf 114sr (frng) ) )  sum (abs (tiredfll5sr (frng) ) )  ... 

sum (abs (tiredf 11 6sr (frng) ) )  sum (abs (tiredf 117sr (frng) ) ) 
sum (abs (tiredf 118sr (frng) ) )  sum (abs (tiredfll9sr (frng) ) )  ... 

sum (abs (tiredf 12 Osr (frng) ) )  sum (abs (tiredf 121 sr (frng) ) ) 
sum (abs (tiredfl22sr (frng) ) )  sum (abs (tiredfl23sr (frng) ) )  ... 

sum (abs (tiredf 124 sr (frng) ) )  sum (abs (tiredf 12 5sr (frng) ) ) 
sum (abs (tiredf 126sr (frng) ) )  sum (abs (tiredfl27sr (frng) ) )  ... 

sum (abs (tiredf 128 sr (frng) ) )  sum (abs (tiredf 12 9sr (frng) ) ) 
sum (abs ( tiredf 1 30 sr (frng) ))]; 

Ztdfpr= [sum (abs (tiredf 11 srp (frng) ) )  sum (abs (tiredfl2srp (frng) ) ) 
sum (abs (tiredf 13srp (frng)  )  )  ... 

sum (abs (tiredf 14 srp (frng) ) )  sum (abs (tiredf 15 srp (frng) ) ) 
sum (abs (tiredfl6srp (frng) ) )  sum (abs (tiredfl7srp (frng) ) )  ... 

sum (abs (tiredf 18 srp (frng) ) )  sum (abs (tiredf 19 srp (frng) ) ) 
sum (abs (tiredf llOsrp (frng) ) )  sum (abs (tiredf lllsrp (frng) ) )  ... 

sum (abs (tiredf 112 srp (frng) ) )  sum (abs (tiredf 11 3 srp (frng) ) ) 
sum (abs (tiredf 114srp (frng) ) )  sum (abs (tiredf 115srp (frng) ) )  ... 

sum (abs (tiredf 11 6 srp (frng) ) )  sum (abs (tiredfll7srp (frng) ) ) 
sum (abs (tiredf 118srp (frng) ) )  sum (abs (tiredf 119srp (frng) ) )  ... 

sum (abs (tiredf 120 srp (frng) ) )  sum (abs (tiredf 121 srp (frng) ) ) 
sum (abs (tiredf 122srp (frng) ) )  sum (abs (tiredf 123srp (frng) ) )  ... 

sum (abs (tiredf 12 4 srp (frng) ) )  sum (abs (tiredf 12 5 srp (frng) ) ) 
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sum (abs (tiredf 126srp (frng) ) )  sum (abs (tiredfl27srp (frng) ) )  ... 

sum (abs (tiredf 128 srp (frng) ) )  sum (abs (tiredf 12 9srp (frng) ) ) 
sum (abs (tiredf 130 srp (frng)  ))]; 

Xt= [speedtdf 11  speedtdfl2  speedtdfl3  speedtdfl4  speedtdfl5  speedtdfl6 
speedtdfl7  speedtdfl8  speedtdfl9  .  .  . 

speedtdfllO  speedtdflll  speedtdfll2  speedtdfll3  speedtdfll4 
speedtdfll5  speedtdfll6  speedtdfll7  speedtdfll8  ... 

speedtdfll9  speedtdfl20  speedtdfl21  speedtdfl22  speedtdfl23 
speedtdfl24  speedtdfl25  speedtdfl26  speedtdfl27  ... 
speedtdfl28  speedtdfl29  speedtdf 130 ] ; 

%  Calculate  false  negatives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztdf(ii)  >  pd (1) *Xt (ii) A2+pd (2) *Xt (ii) +pd (3) +thresh*stdd, 
f lagtd=f lagtd+1 ; 

elseif  Ztdf(ii)  <  pd (1) *Xt (ii) A2+pd (2) *Xt (ii) +pd (3) -thresh*stdd, 
flagtd=f lagtd+1 ; 

end 

end 

NoFNtd=30-f lagtd; 

%  Calculate  false  positives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztdfp(ii)  >  pp (1) *Xt (ii) A2+pp (2) *Xt (ii) +pp (3) +thresh*stdp, 
flagtd=f lagtd+1 ; 

elseif  Ztdfp(ii)  <  pp (1) *Xt (ii) A2+pp (2) *Xt (ii) +pp (3) -thresh*stdp, 
flagtd=f lagtd+1 ; 

end 

end 

NoFPtdl=f lagtd ; 

%  Calculate  false  positives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztdfr(ii)  >  pdr (1) *Xt (ii) A2+pdr (2) *Xt (ii) +pdr (3) +thresh*stddr, 
flagtd=f lagtd+1 ; 

elseif  Ztdfr(ii)  <  pdr (1) *Xt (ii) A2+pdr (2) *Xt (ii) +pdr (3) - 
thresh*stddr, 

flagtd=f lagtd+1 ; 

end 

end 

NoFPtd2=f lagtd  ; 

%  Calculate  false  positives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztdfpr(ii)  >  ppr (1) *Xt (ii) A2+ppr (2) *Xt (ii) +ppr (3) +thresh*stdpr, 
flagtd=f lagtd+1 ; 

elseif  Ztdfpr(ii)  <  ppr(l)*Xt(ii)A2+ppr(2)*Xt(ii)+ppr(3)- 
thresh*stdpr, 

flagtd=f lagtd+1 ; 

end 

end 
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NoFPtd3=f lagtd; 

%  Define  damage  indices  for  passenger  front  tire  fault 
Ztpf= [sum (abs (tirepfllsf (frng) ) )  sum (abs (tirepf 12 sf (frng) ) ) 
sum(abs (tirepfl3sf (frng) )  )  ... 

sum(abs (tirepfl4sf (frng) ) )  sum(abs (tirepfl5sf (frng) ) ) 
sum(abs (tirepfl6sf (frng) ) )  sum(abs (tirepfl7sf (frng) ) )  ... 

sum(abs (tirepfl8sf (frng) ) )  sum(abs (tirepfl9sf (frng) ) ) 
sum(abs (tirepfllOsf (frng) ) )  sum(abs (tirepflllsf (frng) ) )  ... 

sum(abs (tirepfll2sf (frng) ) )  sum(abs (tirepfll3sf (frng) ) ) 
sum (abs (tirepfll4sf (frng) ) )  sum (abs (tirepf 115sf (frng) ) )  ... 

sum(abs (tirepfll6sf (frng) ) )  sum(abs (tirepfll7sf (frng) ) ) 
sum (abs (tirepfll8sf (frng) ) )  sum (abs (tirepf 119sf (frng) ) )  ... 

sum(abs (tirepfl20sf (frng) ) )  sum(abs (tirepfl21sf (frng) ) ) 
sum(abs (tirepfl22sf (frng) ) )  sum(abs (tirepfl23sf (frng) ) )  ... 

sum(abs (tirepfl24sf (frng) ) )  sum(abs (tirepfl25sf (frng) ) ) 
sum(abs (tirepfl26sf (frng) ) )  sum(abs (tirepfl27sf (frng) ) )  ... 

sum(abs (tirepfl28sf (frng) ) )  sum(abs (tirepfl29sf (frng) ) ) 
sum(abs (tirepfl30sf (frng)  )  )  ]  ; 

Ztpfp= [sum (abs (tirepf 11 sfp (frng) ) )  sum (abs (tirepf 12 sfp (frng) ) ) 
sum (abs (tirepfl3sfp (frng)  )  )  ... 

sum (abs (tirepf 14 sfp (frng) ) )  sum (abs (tirepf 15sfp (frng) ) ) 
sum (abs (tirepfl6sfp (frng) ) )  sum (abs (tirepf 17sfp (frng) ) )  ... 

sum (abs (tirepf 18 sfp (frng) ) )  sum (abs (tirepf 19sfp (frng) ) ) 
sum (abs (tirepfllOsfp (frng) ) )  sum (abs (tirepf lllsfp (frng) ) )  ... 

sum (abs (tirepf 112 sfp (frng) ) )  sum (abs (tirepf 11 3sfp (frng) ) ) 
sum (abs (tirepfll4sfp (frng) ) )  sum (abs (tirepf 115sfp (frng) ) )  ... 

sum (abs (tirepf 11 6sfp (frng) ) )  sum (abs (tirepfll7sfp (frng) ) ) 
sum (abs (tirepf 118sfp (frng) ) )  sum (abs (tirepf 119sfp (frng) ) )  ... 

sum (abs (tirepf 120 sfp (frng) ) )  sum (abs (tirepf 121 sfp (frng) ) ) 
sum (abs (tirepf 122sfp (frng) ) )  sum (abs (tirepf 123sfp (frng) ) )  ... 

sum (abs (tirepf 12 4 sfp (frng) ) )  sum (abs (tirepf 12 5sfp (frng) ) ) 
sum (abs (tirepfl26sfp (frng) ) )  sum (abs (tirepf 127sfp (frng) ) )  ... 

sum (abs (tirepf 12 8 sfp (frng) ) )  sum (abs (tirepf 12 9sfp (frng) ) ) 
sum  (abs (tirepf 130 sfp (frng) ) ) ]  ; 

Ztpfr= [sum (abs (tirepf 11 sr (frng) ) )  sum (abs (tirepfl2sr (frng) ) ) 
sum (abs (tirepfl3sr (frng)  )  )  ... 

sum (abs (tirepf 14 sr (frng) ) )  sum (abs (tirepfl5sr (frng) ) ) 
sum (abs (tirepfl6sr (frng) ) )  sum (abs (tirepf 17sr (frng) ) )  ... 

sum (abs (tirepf 18 sr (frng) ) )  sum (abs (tirepfl9sr (frng) ) ) 
sum (abs (tirepfllOsr (frng) ) )  sum (abs (tirepf lllsr (frng) ) )  ... 

sum (abs (tirepf 112 sr (frng) ) )  sum (abs ( tirepf 113sr (frng) ) ) 
sum (abs (tirepfll4sr (frng) ) )  sum (abs (tirepf 115sr (frng) ) )  ... 

sum (abs (tirepf 11 6sr (frng) ) )  sum (abs (tirepf 117sr (frng) ) ) 
sum (abs (tirepfll8sr (frng) ) )  sum (abs (tirepf 119sr (frng) ) )  ... 

sum (abs (tirepf 120 sr (frng) ) )  sum (abs (tirepf 121 sr (frng) ) ) 
sum (abs (tirepfl22sr (frng) ) )  sum (abs (tirepf 123sr (frng) ) )  ... 

sum (abs (tirepf 124 sr (frng) ) )  sum (abs (tirepf 12 5sr (frng) ) ) 
sum (abs (tirepfl26sr (frng) ) )  sum (abs (tirepf 127sr (frng) ) )  ... 

sum (abs (tirepf 128 sr (frng) ) )  sum (abs (tirepf 12 9sr (frng) ) ) 
sum (abs ( tirepf 1 30 sr (frng) ))]; 

Ztpfpr= [sum (abs (tirepfllsrp (frng) ) )  sum (abs (tirepfl2srp (frng) ) ) 
sum (abs (tirepfl3srp (frng) ) )  ... 
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sum (abs (tirepf 14srp (frng) ) )  sum (abs (tirepf 15srp (frng) ) ) 
sum (abs (tirepfl6srp (frng) ) )  sum (abs (tirepf 17srp (frng) ) )  ... 

sum (abs (tirepf 18 srp (frng) ) )  sum (abs (tirepf 19 srp (frng) ) ) 
sum (abs (tirepf llOsrp (frng) ) )  sum (abs (tirepf lllsrp (frng) ) )  ... 

sum (abs (tirepf 112 srp (frng) ) )  sum (abs (tirepf 11 3 srp (frng) ) ) 
sum (abs (tirepfll4srp (frng) ) )  sum (abs (tirepf 115srp (frng) ) )  ... 

sum (abs (tirepf 11 6 srp (frng) ) )  sum (abs (tirepfll7srp (frng) ) ) 
sum (abs (tirepfll8srp (frng) ) )  sum (abs (tirepf 119srp (frng) ) )  ... 

sum (abs (tirepf 120 srp (frng) ) )  sum (abs (tirepfl21srp (frng) ) ) 
sum (abs (tirepf 122srp (frng) ) )  sum (abs (tirepf 123srp (frng) ) )  ... 

sum (abs (tirepf 12 4 srp (frng) ) )  sum (abs (tirepf 12 5 srp (frng) ) ) 
sum (abs (tirepfl26srp (frng) ) )  sum (abs (tirepf 127srp (frng) ) )  ... 

sum (abs (tirepf 12 8 srp (frng) ) )  sum (abs (tirepf 12 9 srp (frng) ) ) 
sum (abs (tirepf 130 srp (frng) )  )  ]  ; 

Xtp= [speedtpfll  speedtpfl2  speedtpfl3  speedtpfl4  speedtpfl5  speedtpfl6 
speedtpfl7  speedtpfl8  speedtpfl9  . . . 

speedtpfllO  speedtpflll  speedtpfll2  speedtpfll3  speedtpfll4 
speedtpfll5  speedtpfll6  speedtpfll7  speedtpfll8  . . . 

speedtpfll9  speedtpfl20  speedtpfl21  speedtpfl22  speedtpfl23 
speedtpfl24  speedtpfl25  speedtpfl26  speedtpfl27  ... 
speedtpfl28  speedtpfl29  speedtpf 130 ] ; 

%  Calculate  false  positives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztpf(ii)  >  pd (1) *Xtp (ii) A2+pd (2) *Xtp (ii) +pd (3) +thresh*stdd, 
f lagtd=f lagtd+1 ; 

elseif  Ztpf(ii)  <  pd (1) *Xtp (ii) A2+pd (2) *Xtp (ii) +pd (3) -thresh*stdd, 
flagtd=f lagtd+1 ; 

end 

end 

NoFPtpl=f lagtd ; 

%  Calculate  false  negatives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztpfp(ii)  >  pp (1) *Xtp (ii) A2+pp (2) *Xtp (ii) +pp (3) +thresh*stdp, 
flagtd=f lagtd+1 ; 

elseif  Ztpfp(ii)  <  pp (1) *Xtp (ii) A2+pp (2) *Xtp (ii) +pp (3) -thresh*stdp, 
flagtd=f lagtd+1 ; 

end 

end 

NoFNtp=30-f lagtd; 

%  Calculate  false  positives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztpfr(ii)  >  pdr (1) *Xtp (ii) A2+pdr (2) *Xtp (ii) +pdr (3) +thresh*stddr, 
flagtd=f lagtd+1 ; 

elseif  Ztpfr(ii)  <  pdr (1) *Xtp (ii) A2+pdr (2) *Xtp (ii) +pdr (3) - 
thresh*stddr, 

flagtd=f lagtd+1  ; 

end 

end 

NoFPtp2=f lagtd; 
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%  Calculate  false  positives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztpfpr(ii)  > 

ppr (1) *Xtp (ii) A2+ppr (2) *Xtp (ii) +ppr (3) +thresh*stdpr, 
f lagtd=f lagtd+1 ; 

elseif  Ztpfpr(ii)  <  ppr (1) *Xtp (ii) A2+ppr (2) *Xtp (ii) +ppr (3) - 
thresh*stdpr, 

flagtd=f lagtd+1 ; 

end 

end 

NoFPtp3=f lagtd; 

%  Define  damage  indices  for  driver  rear  tire  fault 

Ztdr= [sum (abs (tiredrllsf (frng) ) )  sum (abs (tiredrl2sf (frng) ) ) 

sum(abs (tiredrl3sf (frng) )  )  ... 

sum(abs (tiredrl4sf (frng) ) )  sum(abs (tiredrl5sf (frng) ) ) 
sum(abs (tiredrl6sf (frng) ) )  sum(abs (tiredrl7sf (frng) ) )  ... 

sum(abs (tiredrl8sf (frng) ) )  sum(abs (tiredrl9sf (frng) ) ) 
sum(abs (tiredrllOsf (frng) ) )  sum(abs (tiredrlllsf (frng) ) )  ... 

sum(abs (tiredrll2sf (frng) ) )  sum(abs (tiredrll3sf (frng) ) ) 
sum(abs (tiredrll4sf (frng) ) )  sum(abs (tiredrll5sf (frng) ) )  ... 

sum(abs (tiredrll6sf (frng) ) )  sum(abs (tiredrll7sf (frng) ) ) 
sum(abs (tiredrll8sf (frng) ) )  sum(abs (tiredrll9sf (frng) ) )  ... 

sum(abs (tiredrl20sf (frng) ) )  sum(abs (tiredrl21sf (frng) ) ) 
sum(abs (tiredrl22sf (frng) ) )  sum(abs (tiredrl23sf (frng) ) )  ... 

sum(abs (tiredrl24sf (frng) ) )  sum(abs (tiredrl25sf (frng) ) ) 
sum(abs (tiredrl26sf (frng) ) )  sum(abs (tiredrl27sf (frng) ) )  ... 

sum(abs (tiredrl28sf (frng) ) )  sum(abs (tiredrl29sf (frng) ) ) 
sum(abs (tiredrl30sf (frng)  )  )  ]  ; 

Ztdrp= [sum (abs (tiredrllsfp (frng) ) )  sum (abs (tiredrl2sfp (frng) ) ) 
sum (abs (tiredrl3sfp (frng) ) )  ... 

sum (abs (tiredrl4sfp (frng) ) )  sum (abs (tiredrl5sfp (frng) ) ) 
sum (abs (tiredrl6sfp (frng) ) )  sum (abs (tiredrl7sfp (frng) ) )  ... 

sum (abs (tiredrl8sfp (frng) ) )  sum (abs (tiredrl9sfp (frng) ) ) 
sum (abs (tiredrllOsfp (frng) ) )  sum (abs (tiredrlllsfp (frng) ) )  ... 

sum (abs (tiredrll2sfp (frng) ) )  sum (abs (tiredrll3sfp (frng) ) ) 
sum (abs (tiredrll4sfp (frng) ) )  sum (abs (tiredrll5sfp (frng) ) )  ... 

sum (abs (tiredrll6sfp (frng) ) )  sum (abs (tiredrll7sfp (frng) ) ) 
sum (abs (tiredrll8sfp (frng) ) )  sum (abs (tiredrll9sfp (frng) ) )  ... 

sum (abs (tiredrl20sfp (frng) ) )  sum (abs (tiredrl21sfp (frng) ) ) 
sum (abs (tiredrl22sfp (frng) ) )  sum (abs (tiredrl23sfp (frng) ) )  ... 

sum (abs (tiredrl24sfp (frng) ) )  sum (abs (tiredrl25sfp (frng) ) ) 
sum (abs (tiredrl26sfp (frng) ) )  sum (abs (tiredrl27sfp (frng) ) )  ... 

sum (abs (tiredrl28sfp (frng) ) )  sum (abs (tiredrl29sfp (frng) ) ) 
sum (abs (tiredrl30sfp (frng) ))]; 

Ztdrr= [sum (abs (tiredrllsr (frng) ) )  sum (abs (tiredrl2sr (frng) ) ) 
sum (abs (tiredrl3sr (frng) ) )  ... 

sum (abs (tiredrl4sr (frng) ) )  sum (abs (tiredrl5sr (frng) ) ) 
sum (abs (tiredrl6sr (frng) ) )  sum (abs (tiredrl7sr (frng) ) )  ... 

sum (abs (tiredrl8sr (frng) ) )  sum (abs (tiredrl9sr (frng) ) ) 
sum (abs (tiredrllOsr (frng) ) )  sum (abs (tiredrlllsr (frng) ) )  ... 

sum (abs (tiredrll2sr (frng) ) )  sum (abs (tiredrll3sr (frng) ) ) 
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sum (abs (tiredrll4sr (frng) ) )  sum (abs (tiredrll5sr (frng) ) )  ... 

sum (abs (tiredrll6sr (frng) ) )  sum (abs (tiredrll7sr (frng) ) ) 
sum (abs (tiredrl!8sr (frng) ) )  sum (abs (tiredrll9sr (frng) ) )  ... 

sum (abs (tiredrl20sr (frng) ) )  sum (abs (tiredrl21sr (frng) ) ) 
sum (abs (tiredrl22sr (frng) ) )  sum (abs (tiredrl23sr (frng) ) )  ... 

sum (abs (tiredrl24sr (frng) ) )  sum (abs (tiredrl25sr (frng) ) ) 
sum (abs (tiredrl26sr (frng) ) )  sum (abs (tiredrl27sr (frng) ) )  ... 

sum (abs (tiredr!28sr (frng) ) )  sum (abs (tiredrl29sr (frng) ) ) 
sum (abs (tiredrl30sr (frng)  )  )  ]  ; 

Ztdrpr= [sum (abs (tiredrllsrp (frng) ) )  sum (abs (tiredrl2srp (frng) ) ) 
sum  (abs (tiredrl3srp (frng) ) )  ... 

sum (abs (tiredrl4srp (frng) ) )  sum (abs (tiredrl5srp (frng) ) ) 
sum (abs (tiredrl6srp (frng) ) )  sum (abs (tiredrl7srp (frng) ) )  ... 

sum (abs (tiredrl8srp (frng) ) )  sum (abs (tiredrl9srp (frng) ) ) 
sum (abs (tiredrllOsrp (frng) ) )  sum (abs (tiredrlllsrp (frng) ) )  ... 

sum (abs (tiredr!12srp (frng) ) )  sum (abs (tiredrll3srp (frng) ) ) 
sum (abs (tiredrl!4srp (frng) ) )  sum (abs (tiredrll5srp (frng) ) )  ... 

sum (abs (tiredrll6srp (frng) ) )  sum (abs (tiredrll7srp (frng) ) ) 
sum (abs (tiredrl!8srp (frng) ) )  sum (abs (tiredrll9srp (frng) ) )  ... 

sum (abs (tiredrl20srp (frng) ) )  sum (abs (tiredrl21srp (frng) ) ) 
sum (abs (tiredrl22srp (frng) ) )  sum (abs (tiredrl23srp (frng) ) )  ... 

sum (abs (tiredrl24srp (frng) ) )  sum (abs (tiredrl25srp (frng) ) ) 
sum (abs (tiredrl26srp (frng) ) )  sum (abs (tiredrl27srp (frng) ) )  ... 

sum (abs (tiredr!28srp (frng) ) )  sum (abs (tiredrl29srp (frng) ) ) 
sum (abs (tiredrl30srp (frng)  ))]; 

Xt= [ speedtdrl 1  speedtdrl2  speedtdrl3  speedtdrl4  speedtdrl5  speedtdrl6 
speedtdrl7  speedtdr!8  speedtdrl9  .  .  . 

speedtdrllO  speedtdrlll  speedtdrll2  speedtdrll3  speedtdrll4 
speedtdrll5  speedtdrl!6  speedtdrll7  speedtdrll8  .  .  . 

speedtdrll9  speedtdrl20  speedtdrl21  speedtdrl22  speedtdrl23 
speedtdrl24  speedtdrl25  speedtdrl26  speedtdrl27  ... 
speedtdrl28  speedtdrl29  speedtdrl30 ] ; 

%  Calculate  false  positives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztdr(ii)  >  pd (1) *Xt (ii) A2+pd (2) *Xt (ii) +pd (3) +thresh*stdd, 
f lagtd=f lagtd+1 ; 

elseif  Ztdr(ii)  <  pd (1) *Xt (ii)  A2+pd (2) *Xt (ii) +pd (3) -thresh*stdd, 
flagtd=f lagtd+1 ; 

end 

end 

NoFPtdrl=f lagtd ; 

%  Calculate  false  positives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztdrp(ii)  >  pp (1) *Xt (ii) A2+pp (2) *Xt (ii) +pp (3) +thresh*stdp, 
flagtd=f lagtd+1 ; 

elseif  Ztdrp(ii)  <  pp (1) *Xt (ii) A2+pp (2) *Xt (ii) +pp (3) -thresh*stdp, 
flagtd=f lagtd+1 ; 

end 

end 

NoFPtdr2=f lagtd; 
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%  Calculate  false  negatives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztdrr(ii)  >  pdr (1) *Xt (ii) A2+pdr (2) *Xt (ii) +pdr (3) +thresh*stddr, 
f lagtd=f lagtd+1 ; 

elseif  Ztdrr(ii)  <  pdr (1) *Xt (ii) A2+pdr (2) *Xt (ii) +pdr (3) - 
thresh*stddr, 

flagtd=f lagtd+1  ; 

end 

end 

NoFNtdr=30-f lagtd; 

%  Calculate  false  positives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztdrpr(ii)  >  ppr (1) *Xt (ii) A2+ppr (2) *Xt (ii) +ppr (3) +thresh*stdpr, 
flagtd=f lagtd+1 ; 

elseif  Ztdrpr(ii)  <  ppr (1) *Xt (ii) A2+ppr (2) *Xt (ii) +ppr (3) - 
thresh*stdpr, 

flagtd=f lagtd+1 ; 

end 

end 

NoFPtdr3=f lagtd ; 

%  Define  damage  indices  for  passenger  rear  tire  fault 
Ztpr= [sum (abs (tireprllsf (frng) ) )  sum (abs (tireprl2sf (frng) ) ) 
sum(abs (tireprl3sf (frng) ) )  ... 

sum(abs (tireprl4sf (frng) ) )  sum(abs (tireprl5sf (frng) ) ) 
sum(abs (tireprl6sf (frng) ) )  sum(abs (tireprl7sf (frng) ) )  ... 

sum(abs (tireprl8sf (frng) ) )  sum(abs (tireprl9sf (frng) ) ) 
sum(abs (tireprllOsf (frng) ) )  sum(abs (tireprlllsf (frng) ) )  ... 

sum(abs (tireprll2sf (frng) ) )  sum(abs (tireprll3sf (frng) ) ) 
sum(abs (tireprll4sf (frng) ) )  sum(abs (tireprll5sf (frng) ) )  ... 

sum(abs (tireprll6sf (frng) ) )  sum(abs (tireprll7sf (frng) ) ) 
sum(abs (tireprll8sf (frng) ) )  sum(abs (tireprll9sf (frng) ) )  ... 

sum(abs (tireprl20sf (frng) ) )  sum(abs (tireprl21sf (frng) ) ) 
sum(abs (tireprl22sf (frng) ) )  sum(abs (tireprl23sf (frng) ) )  ... 

sum(abs (tireprl24sf (frng) ) )  sum(abs (tireprl25sf (frng) ) ) 
sum(abs (tireprl26sf (frng) ) )  sum(abs (tireprl27sf (frng) ) )  ... 

sum(abs (tireprl28sf (frng) ) )  sum(abs (tireprl29sf (frng) ) ) 
sum(abs (tireprl30sf (frng)  )  )  ]  ; 

Ztprp= [sum (abs (tireprllsfp (frng) ) )  sum (abs (tireprl2sfp (frng) ) ) 
sum (abs (tireprl3sfp (frng) )  )  ... 

sum (abs (tireprl4sfp (frng) ) )  sum (abs (tireprl5sfp (frng) ) ) 
sum (abs (tireprl6sfp (frng) ) )  sum (abs (tireprl7sfp (frng) ) )  ... 

sum (abs (tireprl8sfp (frng) ) )  sum (abs (tireprl9sfp (frng) ) ) 
sum (abs (tireprllOsfp (frng) ) )  sum (abs (tireprlllsfp (frng) ) )  ... 

sum (abs (tireprll2sfp (frng) ) )  sum (abs (tireprll3sfp (frng) ) ) 
sum (abs (tireprll4sfp (frng) ) )  sum (abs (tireprll5sfp (frng) ) )  ... 

sum (abs (tireprll6sfp (frng) ) )  sum (abs (tireprll7sfp (frng) ) ) 
sum (abs (tireprll8sfp (frng) ) )  sum (abs (tireprll9sfp (frng) ) )  ... 

sum (abs (tireprl20sfp (frng) ) )  sum (abs (tireprl21sfp (frng) ) ) 
sum (abs (tireprl22sfp (frng) ) )  sum (abs (tireprl23sfp (frng) ) )  ... 

sum (abs (tireprl24sfp (frng) ) )  sum (abs (tireprl25sfp (frng) ) ) 
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sum (abs (tireprl26sfp (frng) ) )  sum (abs (tireprl27sfp (frng) ) )  ... 

sum (abs (tireprl28sfp (frng) ) )  sum (abs (tireprl29sfp (frng) ) ) 
sum (abs (tireprl30sfp (frng)  )  )  ]  ; 

Ztprr= [sum (abs (tireprllsr (frng) ) )  sum (abs (tireprl2sr (frng) ) ) 
sum (abs (tireprl3sr (frng)  )  )  ... 

sum (abs (tirepr!4sr (frng) ) )  sum (abs (tireprl5sr (frng) ) ) 
sum (abs (tireprl6sr (frng) ) )  sum (abs (tireprl7sr (frng) ) )  ... 

sum (abs (tireprl8sr (frng) ) )  sum (abs (tireprl9sr (frng) ) ) 
sum (abs (tireprllOsr (frng) ) )  sum (abs (tireprlllsr (frng) ) )  ... 

sum (abs (tireprll2sr (frng) ) )  sum (abs (tireprll3sr (frng) ) ) 
sum (abs (tireprl!4sr (frng) ) )  sum (abs (tireprll5sr (frng) ) )  ... 

sum (abs (tireprll6sr (frng) ) )  sum (abs (tireprll7sr (frng) ) ) 
sum (abs (tireprl!8sr (frng) ) )  sum (abs (tireprll9sr (frng) ) )  ... 

sum (abs (tireprl20sr (frng) ) )  sum (abs (tireprl21sr (frng) ) ) 
sum (abs (tireprl22sr (frng) ) )  sum (abs (tireprl23sr (frng) ) )  ... 

sum (abs (tireprl24sr (frng) ) )  sum (abs (tireprl25sr (frng) ) ) 
sum (abs (tireprl26sr (frng) ) )  sum (abs (tireprl27sr (frng) ) )  ... 

sum (abs (tireprl28sr (frng) ) )  sum (abs (tireprl29sr (frng) ) ) 
sum (abs (tireprl30sr (frng) ) )  ]  ; 

Ztprpr= [sum (abs (tireprllsrp (frng) ) )  sum (abs (tireprl2srp (frng) ) ) 
sum (abs (tireprl3srp (frng)  )  )  ... 

sum (abs (tirepr!4srp (frng) ) )  sum (abs (tirepr!5srp (frng) ) ) 
sum (abs (tireprl6srp (frng) ) )  sum (abs (tireprl7srp (frng) ) )  ... 

sum (abs (tireprl8srp (frng) ) )  sum (abs (tireprl9srp (frng) ) ) 
sum (abs (tireprllOsrp (frng) ) )  sum (abs (tireprlllsrp (frng) ) )  ... 

sum (abs (tireprll2srp (frng) ) )  sum (abs (tireprll3srp (frng) ) ) 
sum (abs (tireprl!4srp (frng) ) )  sum (abs (tirepr!15srp (frng) ) )  ... 

sum (abs (tireprll6srp (frng) ) )  sum (abs (tireprll7srp (frng) ) ) 
sum (abs (tireprl!8srp (frng) ) )  sum (abs (tirepr!19srp (frng) ) )  ... 

sum (abs (tireprl20srp (frng) ) )  sum (abs (tireprl21srp (frng) ) ) 
sum (abs (tireprl22srp (frng) ) )  sum (abs (tireprl23srp (frng) ) )  ... 

sum (abs (tireprl24srp (frng) ) )  sum (abs (tireprl25srp (frng) ) ) 
sum (abs (tireprl26srp (frng) ) )  sum (abs (tireprl27srp (frng) ) )  ... 

sum (abs (tireprl28srp (frng) ) )  sum (abs (tireprl29srp (frng) ) ) 
sum (abs (tireprl30srp (frng)  )  )  ]  ; 

Xtp= [speedtprll  speedtprl2  speedtprl3  speedtprl4  speedtprl5  speedtprl6 
speedtprl7  speedtpr!8  speedtprl9  .  .  . 

speedtprllO  speedtprlll  speedtprll2  speedtprll3  speedtprl!4 
speedtprll5  speedtprll6  speedtprll7  speedtprl!8  . . . 

speedtprll9  speedtprl20  speedtprl21  speedtprl22  speedtprl23 
speedtprl24  speedtprl25  speedtprl26  speedtprl27  ... 
speedtprl28  speedtprl29  speedtprl30 ] ; 

%  Calculate  false  positives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztpr(ii)  >  pd (1) *Xtp (ii) A2+pd (2) *Xtp (ii) +pd (3) +thresh*stdd, 
f lagtd=f lagtd+1 ; 

elseif  Ztpr(ii)  <  pd (1) *Xtp (ii) A2+pd (2) *Xtp (ii) +pd (3) -thresh*stdd, 
flagtd=f lagtd+1 ; 

end 

end 

NoFPtprl=f lagtd; 
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%  Calculate  false  positives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztprp(ii)  >  pp (1) *Xtp (ii) A2+pp (2) *Xtp (ii) +pp (3) +thresh*stdp, 
f lagtd=f lagtd+1 ; 

elseif  Ztprp(ii)  <  pp (1) *Xtp (ii) A2+pp (2) *Xtp (ii) +pp (3) -thresh*stdp, 
flagtd=f lagtd+1 ; 

end 

end 

NoFPtpr2=f lagtd; 


%  Calculate  false  positives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztprr(ii)  >  pdr (1) *Xtp (ii) A2+pdr (2) *Xtp (ii) +pdr (3) +thresh*stddr, 
flagtd=f lagtd+1 ; 

elseif  Ztprr(ii)  <  pdr (1) *Xtp (ii) A2+pdr (2) *Xtp (ii) +pdr (3) - 
thresh*stddr, 

flagtd=f lagtd+1 ; 

end 

end 

NoFPtpr3=f lagtd  ; 

%  Calculate  false  negatives 
f lagtd=0 ; 
for  ii=l:30, 

if  Ztprpr ( ii )  > 

ppr (1) *Xtp (ii) A2+ppr (2) *Xtp (ii) +ppr (3) +thresh*stdpr, 
flagtd=f lagtd+1 ; 

elseif  Ztprpr (ii)  <  ppr (1) *Xtp (ii) A2+ppr (2) *Xtp (ii) +ppr (3) - 
thresh*stdpr, 

flagtd=f lagtd+1 ; 

end 

end 

NoFNtpr=30-f lagtd; 


roc ( 1 : 5 , 1 : 4 , kk) = [NoFPd  NoFPp  NoFPdr  NoFPpr; 

NoFNtd  NoFPtdl  NoFPtd2  NoFPtd3; 

tire  fault 


tire  fault 


NoFPtpl  NoFNtp  NoFPtp2  NoFPtp3; 


tire  fault 
tire  fault 
end 


NoFPtdrl  NoFPtdr2  NoFNtdr  NoFPtdr3; 
NoFPtprl  NoFPtpr2  NoFPtpr3  NoFNtpr ] ; 


%  Baseline 
%  Driver  front 

%  Passenger  front 

%  Driver  rear 

%  Passenger  rear 


figure  ( 1 ) ; 

%plot (squeeze (roc  (2, 2,  : )  )  /90  +  squeeze (roc (2, 3,  :  )  )  /90  +  squeeze (roc (2, 4,  : ) ) 
/ 90 ,  squeeze (roc  (2 , 1 ,  : ) ) /30 ,  ' -v ' ,  . . . 

o, 

o 

squeeze (roc (3, 1, : ) ) /90+squeeze (roc (3, 3, : ) ) /90+squeeze (roc(3,4,:))/90,sq 
ueeze (roc(3,2,  :) )/30,  '-A')  ; 

plot (squeeze (roc  (1, 1,  : ) ) /164  +  squeeze (roc (1, 2,  : ) ) /164  +  squeeze (roc  (1, 3,  : ) 
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) /1 64  +  squeeze (roc ( 1 , 4 ,  :) )/164+.  .  . 


squeeze (roc (2 , 2  ,  :) 
, squeeze (roc  (2 , 1 ,  : 

) /164+squeeze (roc (2,3, :] 
) ) /30 ,  ~ v ' , . . . 

) ) /164+squeeze (roc (2,4, : ] 

) ) /164 

squeeze (roc  (1, 1,  :) 
+  squeeze (roc  (1,4,  : 

) /164+squeeze (roc (1, 2, :] 
) ) / 1 64+ . . . 

))/164+squeeze(roc(l,3, :] 

) ) /164 

squeeze (roc  (3,1,  :  ) 
, squeeze (roc  (3, 2,  : 

) /164  +  squeeze (roc  (3, 3,  : ] 
))/30,  '-A',  .  .  . 

) ) /164+squeeze (roc (3, 4, : ) 

) ) /164 

squeeze (roc (1,1,  :  ) 
+  squeeze (roc  (1,4,  : 

) /164  +  squeeze (roc  (1, 2,  :  ] 
) ) /1 64+ . .  . 

) ) /164+squeeze (roc (1,3, : ] 

)  ) /164 

squeeze (roc  (4,1,  :  ) 
, squeeze (roc  (4,3,  : 

) /164  +  squeeze (roc  (4, 2,  : ] 
) ) /30 , 

) ) /164  +  squeeze (roc  (4, 4,  : ] 

)  ) /164 

squeeze (roc (1, 1,  :) 
+  squeeze (roc  (1,4,  : 

) /164  +  squeeze (roc  (1, 2,  :  ] 
) ) / 1 64+ . . . 

) ) /164+squeeze (roc (1, 3, : ] 

)  ) /164 

squeeze (roc (5, 1,  :) 
, squeeze (roc  (5, 4,  : 

) /164+squeeze (roc (5, 2, :] 
) ) /30, ) ; 

))/164+squeeze(roc(5,3, : ) 

) ) /164 

xlabel (' False  Positive  rate  (healthy  tires  flagged  as  flat) '); 
ylabel (' False  Negative  rate  (flat  tires  flagged  as  healthy) '); 
axis ( [ 0  1  0  1 ] ) ; 


%  Plot  detection  results/driver  front  tire 
figure  (2 ) ; 

plot ( [ speedbl 1  speedbl2  speedbl3  speedbl4  speedbl5  speedbl6  speedbl7 
speedbl8  speedbl 9  . . . 

speedbllO  speedblll  speedbll2  speedbll3  speedbll4  speedbll5 
speedbll6  speedbll7  speedbll8  . . . 

speedbll9  speedbl20  speedbl21  speedbl22  speedbl23  speedbl24 
speedbl25  speedbl26  speedbl27  ... 

speedbl28  speedbl29  speedbl30 ] , f ibd, ' bx ' , [ speedb2 1  speedb22 
speedb23  speedb24  speedb25  speedb26  . . . 

speedb27  speedb28  speedb29  speedb210 
speedb211] , fib2d, 'bs ' , [speedb31  speedb32  speedb33  speedb34  speedb35 
speedb36  . . . 

speedb37  speedb38  speedb39  speedb310 
speedb311] , fib3d, 'bd' , [speedb41  speedb42  speedb43  speedb44  speedb45 
speedb46  . . . 

speedb47  speedb48  speedb49  speedb410 
speedb411] , fib4d, 'bv' , [speedb51  speedb52  speedb53  speedb54  speedb55 
speedb56  . . . 

speedb57  speedb58  speedb59  speedb510  speedb51 1 ] , f ib5d, ' bA ' ) ; 
xlabel ( ' Speed  [mph]  ' )  ; 
ylabel (' Fault  index  driver'); 
hold  on; 

plot  (X,  (pd ( 1 ) *X. A2+pd(2) *X+pd ( 3 ) ) +3*stdd,  ' k.  '  ,X,  (pd(l) *X . A2+pd (2 ) *X+pd( 
3) ) -3*stdd, ' k. ' , Xt, Ztdf , 1 rx ' ) ; 
hold  of f ; 


%  Plot  false  positive  results/passenger  front  tire 
figure  ( 3 ) ; 

plot ([ speedbl 1  speedbl2  speedbl3  speedbl4  speedbl5  speedbl6  speedbl7 
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speedbl8  speedbl9  .  .  . 

speedbllO  speedblll  speedbll2  speedbll3  speedbll4  speedbll5 
speedbll6  speedbll7  speedbl!8  . . . 

speedbll9  speedbl20  speedbl21  speedbl22  speedbl23  speedbl24 
speedbl25  speedbl26  speedbl27  ... 

speedbl28  speedbl29  speedbl30 ] , f ibp,  bx  , [speedb21  speedb22 
speedb23  speedb24  speedb25  speedb26  . . . 

speedb27  speedb28  speedb29  speedb210 
speedb211 ] , f ib2p,  'bs', [speedb31  speedb32  speedb33  speedb34  speedb35 
speedb36  . . . 

speedb37  speedb38  speedb39  speedb310 
speedb311] , fib3p, 'bd  , [speedb41  speedb42  speedb43  speedb44  speedb45 
speedb46  . . . 

speedb47  speedb48  speedb49  speedb410 
speedb4 11 ] , f ib4p, ' bv ' , [ speedb51  speedb52  speedb53  speedb54  speedb55 
speedb56  . . . 

speedb57  speedb58  speedb59  speedb510  speedb51 1 ] , f ib5p,  bA ' ) ; 
xlabel ( ' Speed  [mph] ' ) ; 
ylabel (' Fault  index  passenger'); 
hold  on; 

plot(X,  (pp (1) *X. A2+pp (2) *X+pp (3) ) +3*stdp,  'k.  ',X,  (pp(l)*X. A2+pp (2) *X+pp ( 
3) ) -3*stdp, ' k. ' , Xt, Ztdfp, ' rx ' ) ; 
hold  off; 

%  Plot  false  positive  results/driver  rear  tire 
figure (4); 

plot ( [ speedbl 1  speedbl2  speedbl3  speedbl4  speedbl5  speedbl6  speedbl7 
speedbl8  speedbl9  . . . 

speedbllO  speedblll  speedbll2  speedbll3  speedbll4  speedbll5 
speedbll6  speedbll7  speedbll8  . . . 

speedbll9  speedbl20  speedbl21  speedbl22  speedbl23  speedbl24 
speedbl25  speedbl26  speedbl27  ... 

speedbl28  speedbl29  speedbl30 ] , f ibdr , ' bx ' , [ speedb2 1  speedb22 
speedb23  speedb24  speedb25  speedb26  . . . 

speedb27  speedb28  speedb29  speedb210 
speedb211] , fib2dr, 'bs ' , [speedb31  speedb32  speedb33  speedb34  speedb35 
speedb36  . . . 

speedb37  speedb38  speedb39  speedb310 
speedb311] , fib3dr, 'bd' , [speedb41  speedb42  speedb43  speedb44  speedb45 
speedb46  . . . 

speedb47  speedb48  speedb49  speedb410 
speedb411] , fib4dr, 'bv' , [speedb51  speedb52  speedb53  speedb54  speedb55 
speedb56  . . . 

speedb57  speedb58  speedb59  speedb510  speedb51 1 ] , f ib5dr , ' bA ' ) ; 
xlabel ( ' Speed  [mph] ' ) ; 
ylabel (' Fault  index  driver  rear'); 
hold  on; 

plot (X,  (pdr (1) *X. A2+pdr (2) *X+pdr (3) ) +3*stddr,  ' k.  ' , X,  (pdr (1) *X. A2+pdr (2) 
*X+pdr (3) ) -3*stddr, ' k. ' , Xt, Ztdfr, ' rx ' ) ; 
hold  off; 

%  Plot  false  positive  results/passenger  rear  tire 
figure  (5); 

plot ([ speedbl 1  speedbl2  speedbl3  speedbl4  speedbl5  speedbl6  speedbl7 
speedbl8  speedbl9  . . . 

speedbllO  speedblll  speedbll2  speedbll3  speedbll4  speedbll5 
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speedbll6  speedbll7  speedbll8  ... 

speedbll9  speedbl20  speedbl21  speedbl22  speedbl23  speedbl24 
speedbl25  speedbl26  speedbl27  ... 

speedbl28  speedbl29  speedbl30 ] , f ibpr , ' bx ' , [ speedb21  speedb22 
speedb23  speedb24  speedb25  speedb26  . . . 

speedb27  speedb28  speedb29  speedb210 
speedb211] , fib2pr, 'bs ' , [speedb31  speedb32  speedb33  speedb34  speedb35 
speedb36  . . . 

speedb37  speedb38  speedb39  speedb310 
speedb311] , fib3pr, 'bd' , [speedb41  speedb42  speedb43  speedb44  speedb45 
speedb46  . . . 

speedb47  speedb48  speedb49  speedb410 
speedb411] , fib4pr, 'bv' , [speedb51  speedb52  speedb53  speedb54  speedb55 
speedb56  . . . 

speedb57  speedb58  speedb59  speedb510  speedb51 1 ] , f ib5pr , ' bA ' ) ; 
xlabel ( ' Speed  [mph]  ' )  ; 

ylabel (' Fault  index  passenger  rear'); 
hold  on; 

plot (X,  (ppr (1) *X. A2+ppr (2) *X+ppr (3) ) +3*stdpr,  ' k.  1 , X,  (ppr (1) *X. A2+ppr (2) 
*X+ppr (3) ) -3*stdpr, ' k. ' , Xt, Ztdfpr, ' rx ' ) ; 
hold  off; 

%  Plot  driver  front  false  positives 
figure  ( 6)  ; 

plot ( [ speedbl 1  speedbl2  speedbl3  speedbl4  speedbl5  speedbl6  speedbl7 
speedbl8  speedbl9  . . . 

speedbllO  speedblll  speedbll2  speedbll3  speedbll4  speedbll5 
speedbll6  speedbll7  speedbll8  ... 

speedbll9  speedbl20  speedbl21  speedbl22  speedbl23  speedbl24 
speedbl25  speedbl26  speedbl27  ... 

speedbl28  speedbl29  speedbl30 ] , f ibd, 'bx', [speedb21  speedb22 
speedb23  speedb24  speedb25  speedb26  . . . 

speedb27  speedb28  speedb29  speedb210 
speedb211] , fib2d, 'bs  , [speedb31  speedb32  speedb33  speedb34  speedb35 
speedb36  . . . 

speedb37  speedb38  speedb39  speedb310 
speedb311 ] , f ib3d, ' bd ’ , [ speedb4 1  speedb42  speedb43  speedb44  speedb45 
speedb46  . . . 

speedb47  speedb48  speedb49  speedb410 
speedb4 11 ] , f ib4d, ' bv ‘ , [ speedb51  speedb52  speedb53  speedb54  speedb55 
speedb56  . . . 

speedb57  speedb58  speedb59  speedb510  speedb51 1 ] , f ib5d, ' bA ' ) ; 
xlabel ( ' Speed  [mph]  ' )  ; 
ylabel (' Fault  index  driver'); 
hold  on; 

plot  (X,  (pd ( 1 ) *X. A2+pd(2) *X+pd ( 3 ) ) +3*stdd,  ' k.  '  ,X,  (pd(l) *X. A2+pd(2) *X+pd( 
3) ) -3*stdd, ' k. ' , Xtp, Ztpf , ' rx ' ) ; 
hold  off; 

%  Plot  passenger  front  tire  fault  correct  indications 
figure (7); 

plot ([ speedbl 1  speedbl2  speedbl3  speedbl4  speedbl5  speedbl6  speedbl7 
speedbl8  speedbl9  . . . 

speedbllO  speedblll  speedbll2  speedbll3  speedbll4  speedbll5 
speedbll6  speedbll7  speedbll8  ... 

speedbll9  speedbl20  speedbl21  speedbl22  speedbl23  speedbl24 
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speedbl25  speedbl26  speedbl27  ... 

speedbl28  speedbl29  speedbl30 ] , f ibp, ;  bx '  , [speedb21  speedb22 
speedb23  speedb24  speedb25  speedb26  . . . 

speedb27  speedb28  speedb29  speedb210 
speedb211] , fib2p, 'bs ’ , [speedb31  speedb32  speedb33  speedb34  speedb35 
speedb36  . . . 

speedb37  speedb38  speedb39  speedb310 
speedb311 ] , f ib3p, ' bd ' , [ speedb4 1  speedb42  speedb43  speedb44  speedb45 
speedb46  . . . 

speedb47  speedb48  speedb49  speedb410 
speedb411] , fib4p,  bv', [speedb51  speedb52  speedb53  speedb54  speedb55 
speedb56  . . . 

speedb57  speedb58  speedb59  speedb510  speedb51 1 ] , f ib5p,  ;bA ' ) ; 
xlabel ( ' Speed  [mph] ' ) ; 
ylabel (' Fault  index  passenger'); 
hold  on; 

plot (X, (pp (1) *X. A2+pp (2) *X+pp (3) ) +3*stdp, ' k. ’,X, (pp (1) *X. A2+pp (2) *X+pp ( 
3) ) -3*stdp,  ' k.  ' , Xtp, Ztpfp,  ' rx ' ) ; 
hold  of f ; 

%  Plot  driver  rear  false  positives 
figure  ( 8 ) ; 

plot ( [ speedbl 1  speedbl2  speedbl3  speedbl4  speedbl5  speedbl6  speedbl7 
speedbl8  speedbl 9  . . . 

speedbllO  speedblll  speedbll2  speedbll3  speedbll4  speedbll5 
speedbll6  speedbll7  speedbll8  ... 

speedbll9  speedbl20  speedbl21  speedbl22  speedbl23  speedbl24 
speedbl25  speedbl26  speedbl27  ... 

speedbl28  speedbl29  speedbl30 ] , f ibdr , ' bx ' , [ speedb21  speedb22 
speedb2  3  speedb2  4  speedb2  5  speedb2  6  .  .  . 

speedb27  speedb28  speedb29  speedb210 
speedb211] , fib2dr, 'bs ' , [speedb31  speedb32  speedb33  speedb34  speedb35 
speedb36  . . . 

speedb37  speedb38  speedb39  speedb310 
speedb311] , fib3dr, 'bd' , [speedb41  speedb42  speedb43  speedb44  speedb45 
speedb46  . . . 

speedb47  speedb48  speedb49  speedb410 
speedb411] , fib4dr, 'bv' , [speedb51  speedb52  speedb53  speedb54  speedb55 
speedb56  . . . 

speedb57  speedb58  speedb59  speedb510  speedb51 1 ] , f ib5dr , ' bA ' ) ; 
xlabel ( ' Speed  [mph] ' ) ; 
ylabel (' Fault  index  driver  rear'); 
hold  on; 

plot (X, (pdr (1) *X. A2+pdr (2) *X+pdr (3) ) +3*stddr, ' k. ; , X, (pdr (1) *X. A2+pdr (2) 
*X+pdr (3) ) -3*stddr,  ' k.  ' , Xtp, Ztpfr,  ' rx ' ) ; 
hold  off; 

%  Plot  passenger  rear  tire  false  positives 
figure  ( 9 ) ; 

plot ([ speedbl 1  speedbl2  speedbl3  speedbl4  speedbl5  speedbl6  speedbl7 
speedbl 8  speedbl 9  . . . 

speedbllO  speedblll  speedbll2  speedbll3  speedbll4  speedbll5 
speedbll6  speedbll7  speedbll8  ... 

speedbll9  speedbl20  speedbl21  speedbl22  speedbl23  speedbl24 
speedbl25  speedbl26  speedbl27  ... 

speedbl28  speedbl29  speedbl30 ] , f ibpr , ' bx ' , [ speedb21  speedb22 
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speedb2  3  speedb2  4  speedb2  5  speedb2  6  .  .  . 

speedb27  speedb28  speedb29  speedb210 
speedb211] , fib2pr, 'bs ' , [speedb31  speedb32  speedb33  speedb34  speedb35 
speedb36  . . . 

speedb37  speedb38  speedb39  speedb310 
speedb311] , fib3pr, 'bd' , [speedb41  speedb42  speedb43  speedb44  speedb45 
speedb46  . . . 

speedb47  speedb48  speedb49  speedb410 
speedb411] , fib4pr, 'bv' , [speedb51  speedb52  speedb53  speedb54  speedb55 
speedb56  . . . 

speedb57  speedb58  speedb59  speedb510  speedb51 1 ] , f ib5pr , ' bA ' ) ; 
xlabel ( ' Speed  [mph]  ' )  ; 
ylabel (' Fault  index  passenger'); 
hold  on; 

plot (X, (ppr (1) *X. A2+ppr (2) *X+ppr (3) ) +3*stdpr, 1 k. ! , X, (ppr (1) *X. A2+ppr (2) 
*X+ppr (3) ) -3*stdpr, ' k. ' , Xtp, Ztpfpr, 1 rx ' ) ; 
hold  of f ; 

%  Plot  changes  in  response  spectra  for  driver  front  tire  fault 
figure ( 10 ) ; 

plot (f, mean ( [abs (basellsf)  abs (basel2sf )  abs (basel3sf )  abs (basel4sf ) 
abs (basel5sf )  abs (basel6sf )  abs (basel7sf )  ... 

abs (basel8sf )  abs (basel 9sf )  abs (basellOsf )  abs (baselllsf ) 
abs (basell2sf )  abs (basell3sf )  abs (basell4sf )  abs (basell5sf )  ... 

abs (basel 1 6sf)  abs (basell7sf )  abs (basell8sf )  abs (basell9sf ) 
abs (basel20sf )  abs (basel21sf )  abs (basel22sf )  abs (basel23sf )  ... 

abs (basel24sf )  abs (basel25sf )  abs (basel2 6sf )  abs (basel27sf ) 
abs (basel28sf )  abs (basel2 9sf )  abs (basel30sf ) ] , 2 ) ,  b ' ) ;  hold  on; 
plot (f, mean ( [abs (base21sf)  abs (base22sf )  abs (base23sf )  abs (base24sf ) 
abs (base25sf )  abs (base26sf )  abs (base27sf )  ... 

abs (base28sf )  abs (base2 9sf )  abs (base210sf )  abs  (base21 lsf ) ] , 2 ) ,  ' g ' ) ; 
plot (f, mean ( [abs (base31sf)  abs (base32sf )  abs (base33sf )  abs (base34sf ) 
abs (base35sf )  abs (base36sf )  abs (base37sf )  ... 

abs (base38sf )  abs (base39sf )  abs (base310sf )  abs (base31 lsf ) ] , 2 ) , ' r ' ) ; 
plot (f, mean ( [abs (base41sf)  abs (base42sf )  abs (base43sf )  abs (base44sf ) 
abs (base45sf )  abs (base4 6sf )  abs (base47sf )  ... 

abs (base48sf )  abs (base49sf )  abs (base410sf )  abs (base411sf ) ] , 2) , ' c ' ) ; 
plot (f, mean ( [abs (base51sf)  abs (base52sf )  abs (base53sf )  abs (base54sf ) 
abs (base55sf )  abs (base56sf )  abs (base57sf )  ... 

abs (base58sf )  abs (base59sf )  abs (base510sf )  abs (base511sf ) ] , 2) , 'm' ) ; 
plot (f, mean ( [abs (tiredfllsf)  abs (tiredfl2sf )  abs (tiredfl3sf ) 
abs (tiredfl4sf )  abs (tiredfl5sf )  abs (tiredf 16sf )  abs (tiredfl7sf )  ... 

abs (tiredf 18sf )  abs (tiredf 19sf)  abs (tiredfllOsf )  abs (tiredf lllsf) 
abs (tiredf 112sf)  abs (tiredfll3sf )  abs (tiredfll4sf )  abs (tiredfll5sf )  ... 

abs (tiredfll6sf )  abs (tiredf 117sf)  abs (tiredfll8sf )  abs (tiredf 119sf) 
abs (tiredfl20sf )  abs (tiredfl21sf )  abs (tiredfl22sf )  abs (tiredfl23sf )  ... 

abs (tiredfl24sf )  abs (tiredfl25sf )  abs (tiredfl26sf )  abs (tiredf 127sf) 
abs (tiredf 128sf)  abs (tiredf 129sf)  abs (tiredf 130sf) ], 2 ),' k ') ;  hold  off; 
xlabel (' Frequency  [Hz]'); 
ylabel (' Magnitude  \mu  Accel  [g] '); 
axis([0  200  0  3e-3] ) ; 

%  Plot  changes  in  response  spectra  for  passenger  front  tire  fault 
figure ( 11 ) ; 

plot (f, mean ( [abs (basellsfp)  abs (basel2sfp)  abs (basel3sfp) 

abs (basel4sfp)  abs (basel5sfp)  abs (basel 6sfp)  abs (basel7sfp)  ... 
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abs (basel8sfp)  abs (basel 9sfp)  abs (basellOsfp)  abs (baselllsfp) 
abs (basell2sfp)  abs (basell3sfp)  abs (basell4sfp)  abs (basell5sfp)  ... 

abs (basel 1 6sfp)  abs (basell7sfp)  abs (basell8sfp)  abs (basel 1 9sfp) 
abs (basel20sfp)  abs (basel21sfp)  abs (basel22sfp)  abs (basel23sfp)  . . . 

abs (basel24sfp)  abs (basel25sfp)  abs (basel2 6sfp)  abs (basel27sfp) 
abs (basel28sfp)  abs (basel2 9sfp)  abs (basel30sfp) ]  ,  2 )  ,  ' b ' )  ;  hold  on; 
plot (f, mean ( [abs (base21sfp)  abs (base22sfp)  abs (base23sfp) 
abs (base24sfp)  abs (base25sfp)  abs (base2 6sfp)  abs (base27sfp)  ... 

abs (base28sfp)  abs (base2 9sfp)  abs (base210sfp) 
abs (base2 llsfp) ] ,2)  ,  ' g '  )  ; 

plot (f, mean ( [abs (base31sfp)  abs (base32sfp)  abs (base33sfp) 

abs (base34sfp)  abs (base35sfp)  abs (base36sfp)  abs (base37sfp)  ... 

abs (base38sfp)  abs (base39sfp)  abs (base310sfp) 
abs (base 3 llsfp) ] , 2 ) , ' r ' ) ; 

plot (f, mean ( [abs (base41sfp)  abs (base42sfp)  abs (base43sfp) 

abs (base44sfp)  abs (base45sfp)  abs (base4 6sfp)  abs (base47sfp)  ... 

abs (base48sfp)  abs (base4 9sfp)  abs (base410sfp) 
abs (base 4 llsfp) ]  ,2)  ,  ' c ' )  ; 

plot (f, mean ( [abs (base51sfp)  abs (base52sfp)  abs (base53sfp) 

abs (base54sfp)  abs (base55sfp)  abs (base56sfp)  abs (base57sfp)  ... 

abs (base58sfp)  abs (base59sfp)  abs (base510sfp) 
abs (base 5 llsfp) ] ,2) , 'm' ) ; 

plot (f, mean ( [abs (tirepf llsfp)  abs (tirepf 12sfp)  abs (tirepf 13sfp) 

abs (tirepf 14sfp)  abs (tirepf 15sfp)  abs (tirepfl6sfp)  abs (tirepf 17sfp)  ... 

abs (tirepfl8sfp)  abs (tirepf 19sfp)  abs  (tirepfllOsfp) 
abs (tirepf lllsfp)  abs (tirepf 112sfp)  abs (tirepf 113sfp)  abs (tirepfll4sfp) 
abs (tirepf 115sfp)  . . . 

abs (tirepfll6sfp)  abs (tirepfll7sfp)  abs (tirepfll8sfp) 
abs (tirepf 119sfp)  abs (tirepf 120sfp)  abs (tirepf 121sfp)  abs (tirepf 122sfp) 
abs (tirepf 123sfp)  . . . 

abs (tirepf 124sfp)  abs (tirepf 125sfp)  abs (tirepf 126sfp) 
abs (tirepf 127sfp)  abs (tirepf 128sfp)  abs (tirepfl29sfp) 
abs (tirepf 130 sfp) ] , 2) , ' k ' ) ;  hold  off; 
xlabel (' Frequency  [Hz]'); 
ylabel (' Magnitude  \mu  Accel  [g]  ' )  ; 
axis([0  200  0  2e-l]); 

%  Plot  changes  in  response  spectra  for  driver  rear  tire  fault 
figure ( 12 ) ; 

plot (f, mean ( [abs (basellsr)  abs (basel2sr)  abs (basel3sr)  abs (basel4sr) 
abs (basel5sr)  abs (basel 6sr)  abs (basel7sr)  ... 

abs (basel8sr)  abs (basel 9sr)  abs (basellOsr)  abs (baselllsr) 
abs (basell2sr)  abs (basell3sr)  abs (basell4sr)  abs (basell5sr)  ... 

abs (basel 1 6sr)  abs (basell7sr)  abs (basell8sr)  abs (basell9sr) 
abs (basel20sr)  abs (basel21sr)  abs (basel22sr)  abs (basel23sr)  ... 

abs (basel24sr)  abs (basel25sr)  abs (basel2 6sr )  abs (basel27sr) 
abs (basel28sr)  abs (basel2 9sr )  abs (basel30sr) ] , 2 ) , ' b ' ) ;  hold  on; 
plot (f, mean ( [abs (base21sr)  abs (base22sr)  abs (base23sr)  abs (base24sr) 
abs (base25sr)  abs (base2 6sr )  abs (base27sr)  ... 

abs (base28sr)  abs (base2 9sr )  abs (base210sr)  abs (base211sr) ] , 2 ) , ' g ' ) ; 
plot (f, mean ( [abs (base31sr)  abs (base32sr)  abs (base33sr)  abs (base34sr) 
abs (base35sr)  abs (base36sr)  abs (base37sr )  ... 

abs (base38sr)  abs (base39sr)  abs (base310sr)  abs (base31 lsr ) ] , 2 ) , ' r ' ) ; 
plot (f, mean ( [abs (base41sr)  abs (base42sr)  abs (base43sr)  abs (base44sr) 
abs (base45sr)  abs (base4 6sr )  abs (base47sr)  ... 

abs (base48sr)  abs (base4 9sr )  abs (base410sr)  abs (base411sr) ] , 2) , ' c ' ) ; 
plot (f, mean ( [abs (base51sr)  abs (base52sr)  abs (base53sr)  abs (base54sr) 
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abs (base55sr)  abs (base56sr)  abs (base57sr )  ... 

abs (base58sr)  abs (base59sr)  abs (base510sr)  abs (base511sr) ] , 2) , 'm' ) ; 
plot (f, mean ( [abs (tiredrllsr)  abs (tiredrl2sr)  abs (tiredrl3sr) 
abs (tiredrl4sr)  abs (tiredrl5sr)  abs (tiredrl6sr)  abs (tiredrl7sr)  ... 

abs (tiredrl8sr)  abs (tiredrl9sr)  abs (tiredrllOsr)  abs (tiredrlllsr) 
abs (tiredrll2sr)  abs (tiredrll3sr)  abs (tiredrll4sr)  abs (tiredrll5sr)  ... 

abs (tiredrll6sr)  abs (tiredrll7sr)  abs (tiredrll8sr)  abs (tiredrll9sr) 
abs (tiredrl20sr)  abs (tiredrl21sr)  abs (tiredrl22sr)  abs (tiredrl23sr)  ... 

abs (tiredrl24sr)  abs (tiredrl25sr)  abs (tiredrl26sr)  abs (tiredrl27sr) 
abs (tiredrl28sr)  abs (tiredrl29sr)  abs (tiredrl30sr) ] , 2 ) , ' k ' ) ;  hold  off; 
xlabel (' Frequency  [Hz]'); 
ylabel (' Magnitude  \mu  Accel  [g]  '); 
axis([0  200  0  3e-3] ) ; 

%  Plot  changes  in  response  spectra  for  passenger  rear  tire  fault 
figure (13) ; 

plot (f, mean ( [abs (basellsrp)  abs (basel2srp)  abs (basel3srp) 

abs (basel4srp)  abs (basel5srp)  abs (basel 6srp)  abs (basel7srp)  ... 

abs (basel8srp)  abs (basel 9srp)  abs (basellOsrp)  abs (baselllsrp) 
abs (basell2srp)  abs (basell3srp)  abs (basell4srp)  abs (basell5srp)  ... 

abs (basel 1 6srp)  abs (basell7srp)  abs (basell8srp)  abs (basel 1 9srp) 
abs (basel20srp)  abs (basel21srp)  abs (basel22srp)  abs (basel23srp)  . . . 

abs (basel24srp)  abs (basel25srp)  abs (basel2 6srp)  abs (basel27srp) 
abs (basel28srp)  abs (basel2 9srp)  abs (basel30srp) ] , 2 ) , ' b ' ) ;  hold  on; 
plot (f, mean ( [abs (base21srp)  abs (base22srp)  abs (base23srp) 
abs (base24srp)  abs (base25srp)  abs (base2 6srp)  abs (base27srp)  ... 

abs (base28srp)  abs (base2 9srp)  abs (base210srp) 
abs (base2 llsrp) ] , 2 ) , ' g ' ) ; 

plot (f, mean ( [abs (base31srp)  abs (base32srp)  abs (base33srp) 

abs (base34srp)  abs (base35srp)  abs (base36srp)  abs (base37srp)  ... 

abs (base38srp)  abs (base39srp)  abs (base310srp) 
abs (base 3 llsrp) ] , 2 ) , ' r ' ) ; 

plot (f, mean ( [abs (base41srp)  abs (base42srp)  abs (base43srp) 

abs (base44srp)  abs (base45srp)  abs (base4 6srp)  abs (base47srp)  ... 

abs (base48srp)  abs (base4 9srp)  abs (base410srp) 
abs (base 4 llsrp) ]  ,2)  ,  ' c ' )  ; 

plot (f, mean ( [abs (base51srp)  abs (base52srp)  abs (base53srp) 

abs (base54srp)  abs (base55srp)  abs (base56srp)  abs (base57srp)  ... 

abs (base58srp)  abs (base59srp)  abs (base510srp) 
abs (base511srp) ] , 2) , 'm'); 

plot (f, mean ( [abs (tireprllsrp)  abs (tireprl2srp)  abs (tireprl3srp) 

abs (tireprl4srp)  abs (tireprl5srp)  abs (tireprl6srp)  abs (tireprl7srp)  ... 

abs (tireprl8srp)  abs (tireprl9srp)  abs (tireprllOsrp) 
abs (tireprlllsrp)  abs (tireprll2srp)  abs (tireprll3srp)  abs (tireprll4srp) 
abs (tireprll5srp)  . . . 

abs (tireprll6srp)  abs (tireprll7srp)  abs (tireprll8srp) 
abs (tireprll9srp)  abs (tireprl20srp)  abs (tireprl21srp)  abs (tireprl22srp) 
abs (tireprl23srp)  . . . 

abs (tireprl24srp)  abs (tireprl25srp)  abs (tireprl26srp) 
abs (tireprl27srp)  abs (tireprl28srp)  abs (tireprl29srp) 
abs (tireprl30srp) ] , 2 ) ,  k');  hold  off; 
xlabel ( ' Frequency  [Hz ] '); 
ylabel (' Magnitude  \mu  Accel  [g]  '  )  ; 
axis([0  200  0  2e-l] ) ; 
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%  Modal  analysis  of  extended  diagnostic  cleat 
load  Workspace 

%  Plot  driving  point  frequency  response  functions  on  two  plates 
figure  ( 1 ) ; 

semilogy (f , abs (squeeze (Driverlnner ( : , 13,  [3  6] ) )  )  )  ; 
xlabel ( ' Freq  [Hz] ' ) ; 
ylabel('Mag.  H  [g/lb] ,  Coh'); 
axis([0  200  le-6  leO]); 

figure  (2 )  ; 

semilogy (f , abs (squeeze ( PassengerOuter ( :  ,  13,  [3  6] ) )  )  )  ; 
xlabel ('Freq  [Hz]'); 
ylabel('Mag.  H  [g/lb],  Coh'); 
axis([0  200  le-6  leO]); 

%  Define  plate  geometry 

X=[ (0:1:17) ' ;  (0:1:17)';  (0:1:17)']; 

Y= [ones (18, 1) *0;  ones (18, 1) *1;  ones (18, 1) *2]  ; 

Z= [ones (18, 1) *0;  ones (18, 1) *0;  ones (18, 1) *0]  ; 

%  Plot  FRFs 
figure  ( 3 ) ; 
subplot  (131)  ; 

semilogy (f ,  abs (squeeze (Driverlnner  ( : , 1 : 18,  [3] ) ) ) ,  -  '  )  ; 

xlabel ( ' Freq  [Hz] ' ) ; 

ylabel('Mag.  H  [g/lb]'); 

axis([0  200  le-6  leO]); 

subplot  (132)  ; 

semilogy (f ,  abs (squeeze (DriverCenter  ( : , 1 : 18,  [3] ) ) ) ,  '  -  ' )  ; 

xlabel ( ' Freq  [Hz] ' ) ; 

ylabel('Mag.  H  [g/lb]'); 

axis([0  200  le-6  leO]); 

subplot  (133)  ; 

semilogy (f ,  abs (squeeze (DriverOuter  ( : , 1 : 18,  [3] ) ) ) ,  '  -  '  )  ; 
xlabel ( ' Freq  [Hz] ' ) ; 
ylabel('Mag.  H  [g/lb]'); 
axis([0  200  le-6  leO]); 

figure  ( 4 ) ; 
subplot  (131)  ; 

semilogy (f ,  abs (squeeze (PassengerOuter  (  : , 1 : 18,  [3] ) ) ) ,  -  '  )  ; 

xlabel ('Freq  [Hz]'); 

ylabel('Mag.  H  [g/lb] ' ) ; 

axis([0  200  le-6  leO]); 

subplot  (132)  ; 

semilogy (f ,  abs (squeeze ( PassengerCenter  ( :  , 1 : 18,  [3] ) ) ) ,  '  -  '  )  ; 

xlabel ('Freq  [Hz]'); 

ylabel('Mag.  H  [g/lb]'); 

axis([0  200  le-6  leO]); 

subplot (133) ; 

semilogy (f ,  abs (squeeze ( Passengerlnner  (  :  , 1 : 18,  [3] ) ) ) ,  '  -  ' )  ; 
xlabel ('Freq  [Hz]'); 
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ylabel ( 'Mag.  H  [g/lb] ' ) ; 
axis([0  200  le-6  led]); 


%  Find  amplitudes  and  frequencies 

%  Driver  side  18.5  Hz,  35  Hz,  57  Hz,  75  Hz,  102  Hz,  146  Hz 
%  Passenger  side  21  Hz,  35  Hz,  86  Hz,  105  Hz,  127  Hz 

drivmdl= [conj  (Driverlnner (round (18 . 5/f (2) ) , 1 : 18, 3) )  '  ; 
conj (DriverCenter (round (18.5/f(2) ) ,1:18,3) ) 
conj (DriverOuter (round (18.5/f(2)),l:18,3)) ']; 
drivmd2= [conj  (Driverlnner (round (35/ f (2) ) , 1 : 18, 3) )  '  ; 
conj  (DriverCenter (round (35/f(2)),l:18,3))  '  ; 
conj  (DriverOuter (round (35/f(2)),l:18,3))  ']; 
drivmd3= [conj  (Driverlnner (round (57/f (2) ) , 1 : 18, 3) )  '  ; 
conj  (DriverCenter (round (57/f(2)),l:18,3))  '  ; 
conj (DriverOuter (round (57/f(2)),l:18,3)) ']; 
drivmd4= [conj (Driverlnner (round (75/f(2) ) ,1:18,3) ) ' ; 
conj  (DriverCenter (round (75/f(2) )  ,1:18,3)  )  '  ; 
conj  (DriverOuter (round (75/f (2) )  ,1:18,3)  )  ']; 
drivmd5= [conj  (Driverlnner (round (102/ f (2) )  ,  1 : 18, 3) )  ' ; 
conj  (DriverCenter (round (102/f(2)),l:18,3)) 
conj (DriverOuter (round (102/f(2)),l:18,3)) ']; 
drivmd6= [conj  (Driverlnner (round (146/f (2) ) , 1 : 18, 3) )  '  ; 
conj  (DriverCenter (round (146/f(2)),l:18,3)) 
conj (DriverOuter (round (146/f(2)),l:18,3)) ']; 


passmdl= [conj ( PassengerOuter (round (21/f(2)),l:18,3)) 
conj  ( PassengerCenter (round (21/f(2)),l:18,3)) 
conj ( Pas senger Inner (round (21/f(2)),l:18,3)) ']; 
passmd2= [conj  (PassengerOuter (round (35/f (2) ) , 1 : 18, 3) )  '  ; 
conj  (PassengerCenter (round (35/f (2) )  ,1:18,3)  ) 
conj ( Pas senger Inner (round (35/f(2) ) ,1:18,3) ) ']; 
passmd3= [conj (PassengerOuter (round (86/f(2)),l:18,3)) 
conj  (PassengerCenter (round (86/f(2)),l:18,3)) 
conj ( Pas senger Inner (round (86/f(2) ) ,1:18,3) ) ']; 
passmd4= [conj (PassengerOuter (round (105/f(2)),l:18,3)) 
conj  (PassengerCenter (round (105/f (2) )  ,  1:18,3)  ) 
conj  ( Pas senger Inner (round (105/f(2)),l:18,3))  ']; 
passmd5= [conj  (PassengerOuter (round (127/f(2)),l:18,3)) 
conj  (PassengerCenter (round (127/f(2)),l:18,3)) 
conj  ( Pas senger Inner (round (127/f(2)),l:18,3))  ']; 

%  Plot  shapes 
figure ( 5 ) ; 

plot3 (X ( 1 : 1 8 ) ,Y(1:18),Z(1:18), 'b.- 

' ,X(1+18:18+18) ,Y (1+18:18+18) ,Z (1+18:18+18) , ' b . - 

' ,X(l  +  36:18  +  36) , Y (1  +  36 : 18  +  36) ,Z  (1  +  36:18  +  36) ,  ' b . - ' ) ;  hold  on; 

plot3 (X ( [ 1  19  37 ] ) , Y ( [ 1  19  37 ] )  ,  Z ( [1  19  37 ] )  ,  ' b . - ’ , X ( [ 1  19  37]+l),Y([l 

19  37 ] +1 ) , Z ( [ 1  19  37 ] +1) , ' b . - ' , X ( [1  19  37]+2),Y([l  19  37]+2),Z([l  19 

37 ] +2 ) ,  'b.-' , .  .  . 

X([l  19  37] +3) , Y ( [1  19  37 ] +3 ) , Z  (  [  1  19  37 ] +3 ) ,  ' b . - ' , X ( [ 1  19 
37 ] +4 ) , Y ( [ 1  19  37 ] +4 ) , Z  (  [  1  19  37 ] +4 ) ,  ' b . - ' , X ( [ 1  19  37]+5),Y([l  19 
37] +5) , Z  (  [1  19  37 ] +5 ) ,  ' b . - ' , . . . 

X([l  19  37 ] +6 ) , Y (  [  1  19  37 ] +6 ) , Z  (  [  1  19  37 ] +6 ) ,  b . -  , X ( [ 1  19 
37 ] +7 ) , Y ( [ 1  19  37 ] +7 ) , Z  (  [  1  19  37 ] +7 ) ,  ' b . - ' , X ( [ 1  19  37]+8),Y([l  19 
37] +8) , Z  (  [1  19  37 ] +8 ) ,  ' b . - ' , . . . 
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X ( [ 1  19  37 ] +9 ) , Y ( [ 1  19  37 ] +9 ) , Z  (  [  1  19  37 ] +9 ) ,  b . - ' , X (  [  1  19 
37 ] +10 ) , Y ( [ 1  19  37 ] +10 )  ,  Z ( [ 1  19  37 ] +10 )  ,  ' b . - ' , X ( [ 1  19  37]+ll),Y([l  19 
37 ] +1 1 ) , Z ( [ 1  19  37]+ll),'b. 

X([l  19  37 ] +12 )  ,  Y ( [ 1  19  37 ] +12 ) , Z  (  [  1  19  37 ] +12 ) ,  ' b . - ' , X ( [ 1  19 
37] +13) , Y ( [1  19  37] +13) , Z ( [1  19  37 ] +13 ) , 1 b . - ' , X ( [ 1  19  37]+14),Y([l  19 
37] +14) , Z  (  [1  19  37 ] +14 ) ,  ' b . - ' ,  .  .  . 

X([l  19  37] +15) , Y ( [1  19  37] +15) , Z  (  [1  19  37] +15) ,  'b. - ; , X (  [1  19 
37 ] +1 6 )  ,  Y ( [ 1  19  37 ] +1 6 )  ,  Z ( [ 1  19  37 ] +16) ,  ' b . - ' , X ( [ 1  19  37]+17),Y([l  19 
37] +17) , Z  (  [1  19  3 7 ] + 1 7 ) ,  ' b .  —  ' ) ; 

Z=abs (drivmd5) . *sin (angle (drivmd5) ) ; 

plot3 (X ( 1 : 18 ) ,Y(1:18),Z(1:18), 'r.- 

' ,X(1  +  18:18  +  18) ,Y (1  +  18:18  +  18)  ,Z (1  +  18:18  +  18)  ,  '  r .  - 

' ,X(l  +  36:18  +  36)  ,  Y (1  +  36 : 18  +  36)  ,  Z (1  +  36  : 18  +  36)  ,  r.-') ;  hold  on; 

plot3 (X ( [ 1  19  37 ] ) , Y ( [ 1  19  37 ] ) , Z  (  [1  19  37 ] ) ,  ' r . - ' , X ( [ 1  19  37]+l),Y([l 

19  37 ] +1 ) , Z ( [ 1  19  37] +1), ' r . - ' , X ( [1  19  37]+2),Y([l  19  37]+2),Z([l  19 

37 ] +2 ) ,  ' r . -  '  ,  .  .  . 

X ( [ 1  19  37 ] +3 ) , Y (  [  1  19  37 ] +3 ) , Z  (  [  1  19  37] +3) ,  ' r . - ' ,X ( [1  19 
37 ] +4 ) , Y (  [  1  19  37 ] +4 ) , Z  (  [  1  19  37 ] +4 ) ,  ' r . - ' , X  (  [  1  19  37]+5),Y([l  19 
37] +5) , Z  (  [1  19  37 ] +5 ) ,  ' r . - ' , . .  . 

X ( [ 1  19  37 ] +6 ) , Y (  [  1  19  37 ] +6 ) , Z  (  [  1  19  37 ] +6) ,  ' r . - ' , X ( [1  19 
37 ] +7 ) , Y ( [ 1  19  37 ] +7 ) , Z  (  [  1  19  37 ] +7 ) ,  ' r . - ' , X ( [ 1  19  37]+8),Y([l  19 
37] +8) , Z  (  [1  19  37] +8) ,  r.- ' , . . . 

X ( [ 1  19  37 ] +9 ) , Y ( [ 1  19  37 ] +9 ) , Z ( [ 1  19  37 ] +9) , ' r . - ' , X ( [1  19 
37] +10) , Y ( [1  19  37] +10)  ,  Z ( [1  19  37 ] +10 ) ,  r . -  , X  (  [  1  19  37]+ll),Y([l  19 
37 ] +1 1 ) , Z  (  [  1  19  37] +11),  ' r . - ' ,  .  .  . 

X([l  19  37 ] +12 ) , Y ( [ 1  19  37 ] +12 ) , Z  (  [  1  19  37 ] +12 ) ,  ' r . - ' , X  (  [  1  19 
37] +13) , Y ( [1  19  37] +13) , Z ( [1  19  37] +13) , ' r . - ' , X ( [1  19  37]+14),Y([l  19 
37 ] +14 ) , Z  (  [  1  19  37]+14),'r. 

X([l  19  37] +15) , Y ( [1  19  37] +15) , Z  (  [1  19  37] +15) ,  ' r . - ' , X (  [1  19 
37 ] +1 6 ) , Y ( [ 1  19  37 ] +1 6 ) , Z  (  [  1  19  37 ] +1 6 ) ,  1 r . - ' , X ( [ 1  19  37]+17),Y([l  19 
37] +17)  ,  Z ( [1  19  3  7 ] + 1 7  )  ,  '  r  .  -  '  )  ; 
view ( -5 . 5 , 1 6 ) ; 

Z= [ones (18, 1) *0;  ones (18, 1) *0;  ones  (18, 1) *0]  ; 

xlabel (' Length  of  plate'); 

ylabel (' Width  of  plate'); 

zlabel ( ' Operational  deflection ' ) ; 


figure (6); 

plot3 (X ( 1 : 1 8 ) ,Y(1:18),Z(1:18), 'b.- 

' ,X(1  +  18:18  +  18) ,Y (1  +  18:18  +  18) ,Z (1  +  18:18  +  18)  ,  ' b . - 

',X(l+36:18+36) ,Y(l+36:18+36) ,Z(l+36:18+36) , 'b.-') ;  hold  on; 

plot3 (X ( [ 1  19  37 ] )  ,  Y ( [ 1  19  37 ] )  ,  Z ( [ 1  19  37 ]  )  ,  ' b . - ' , X ( [ 1  19  37]+l),Y([l 

19  37 ] +1 ) , Z ( [ 1  19  37 ] +1) , ' b . - ' , X ( [1  19  37]+2),Y([l  19  37]+2),Z([l  19 

37 ] +2 )  ,  'b.-',  .  .  . 

X  (  [ 1  19  37 ] +3 ) , Y ( [ 1  19  37 ] +3 ) , Z ( [ 1  19  37] +3) ,  'b. - ' ,X( [1  19 
37 ] +4 ) , Y ( [ 1  19  37 ] +4 )  ,  Z ( [ 1  19  37 ] +4 )  ,  ' b . - ' , X ( [ 1  19  37]+5),Y([l  19 
37] +5) , Z ( [1  19  37] +5) , ' b . - ' , . . . 

X([l  19  37 ] +6 ) , Y ( [ 1  19  37 ] +6 ) , Z ( [ 1  19  37 ] +6 ) , ' b . - ' , X ( [ 1  19 
37 ] +7 ) , Y ( [ 1  19  37 ] +7 )  ,  Z ( [ 1  19  37 ] +7 )  ,  ' b . - ' , X ( [ 1  19  37 ] +8 ) , Y  (  [ 1  19 
37] +8) , Z  (  [1  19  37] +8) ,  'b.- ' , . . . 

X([l  19  37] +9) , Y ( [1  19  37 ] +9 ) , Z  (  [  1  19  37 ] +9) ,  ' b . - ' , X ( [1  19 
37 ] +10 ) , Y ( [ 1  19  37 ] +10 ) , Z  (  [  1  19  37 ] +10 ) ,  ' b . - ' , X ( [ 1  19  37]+ll),Y([l  19 
37] +11) , Z  (  [1  19  37 ] +11 ) ,  ' b . - ' , . .  . 

X([l  19  37 ] +12 ) , Y ( [ 1  19  37 ] +12 ) , Z  (  [  1  19  37 ] +12 ) ,  ' b . - ' , X ( [ 1  19 
37] +13) , Y ( [1  19  37] +13)  ,  Z ( [1  19  37 ] +13 )  ,  1 b . - ' , X ( [ 1  19  37]+14),Y([l  19 
37] +14) , Z  (  [1  19  37 ] +14 ) ,  ' b . - ' , .  .  . 

X([l  19  37] +15) , Y ( [1  19  37] +15) , Z  (  [1  19  37 ] +15 ) ,  ' b . - ' , X ( [ 1  19 
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37 ] +1 6 ) , Y ( [ 1  19  37] +16) , Z  (  [1  19  37 ] +1 6 ) ,  ' b . - ' , X ( [ 1  19  37]+17),Y([l  19 
37 ] +17 )  ,  Z ( [ 1  19  3 7 ] + 1 7 )  ,  '  b .  -  ' )  ; 

Z=abs (passmd4 ) .  *sin (angle (passmd4 ) ) ; 

plot3 (X (1 : 18) , Y (1 : 18) , Z (1 : 18)  ,  'r.- 

' ,X(1  +  18:18  +  18) ,Y (1  +  18:18  +  18) ,Z (1  +  18:18  +  18)  ,  '  r .  - 

' ,X(l+36:18+36) , Y (1+36 : 18+36) , Z (1+36 : 18+36) , 'r.-') ;  hold  on; 

plot3 (X ( [ 1  19  37 ] )  ,  Y ( [ 1  19  37 ] )  ,  Z ( [ 1  19  37 ]  )  ,  ' r . - ' , X ( [ 1  19  37]+l),Y([l 

19  37 ] +1 ) , Z ( [ 1  19  37] +1),  ' r . - ' , X  (  [1  19  37]+2),Y([l  19  37]+2),Z([l  19 

37 ] +2 ) ,  ' r . -  '  ,  .  .  . 

X ( [ 1  19  37 ] +3 ) , Y (  [  1  19  37 ] +3 ) , Z  (  [  1  19  37] +3) ,  ' r . - ' ,X (  [1  19 
37 ] +4 ) , Y  (  [  1  19  37 ] +4 ) , Z  (  [  1  19  37 ] +4 ) ,  ' r . - ' , X  (  [  1  19  37]+5),Y([l  19 
37] +5) , Z  (  [1  19  37] +5) ,  'r.- ' ,  . .  . 

X ( [ 1  19  37 ] +6 ) , Y (  [  1  19  37 ] +6 ) , Z  (  [  1  19  37 ] +6) ,  ' r . - ' , X ( [1  19 
37 ] +7 ) , Y ( [ 1  19  37 ] +7 ) , Z  (  [  1  19  37 ] +7 ) , ' r . - ' , X ( [ 1  19  37]+8),Y([l  19 
37] +8) , Z  (  [1  19  37] +8) ,  ' r.- ' ,  .  .  . 

X([l  19  37 ] +9 ) , Y ( [ 1  19  37 ] +9 ) , Z ( [ 1  19  37 ] +9) , ' r . - ' , X ( [1  19 
37 ] +10 ) , Y ( [ 1  19  37 ] +10 )  ,  Z ( [ 1  19  37 ] +10 )  ,  ' r . - '  ,  X ( [ 1  19  37]+ll),Y([l  19 
37 ] +11 ) , Z ( [ 1  19  37 ] +11) r . 

X([l  19  37 ] +12 )  ,  Y ( [ 1  19  37 ] +12  )  ,  Z ( [ 1  19  37 ] +12 ) ,  ' r . - ' , X ( [ 1  19 
37] +13) , Y ( [1  19  37] +13) , Z ( [1  19  37] +13) , 1 r . - ' , X ( [1  19  37]+14),Y([l  19 
37] +14) , Z  (  [1  19  37 ] +14 ),' r . 

X ( [ 1  19  37] +15) , Y  (  [1  19  37] +15) , Z  (  [1  19  37] +15) ,  '  r .  -  ', X  (  [1  19 
37 ] +1 6 ) , Y (  [  1  19  37 ] +1 6 ) , Z  (  [  1  19  37 ] +1 6 ) ,  ' r . - ' , X  (  [  1  19  37]+17),Y([l  19 
37] +17) , Z  (  [1  19  3 7 ] + 1 7 ) ,  'r.-') ; 
view (-5.5,16) ; 

Z= [ones  ( 18 , 1 ) *0 ;  ones  (18, 1) *0;  ones  (18, 1) *0] ; 

xlabel (' Length  of  plate'); 

ylabel (' Width  of  plate'); 

zlabel ( ' Operational  deflection ' ) ; 


%  Extended  diagnostic  cleat  model 
%  D .  E .  Adams 
%  February  20,  2011 

cd ( ' c : \documents  and  settings\deadams\my  documents\purdl0_ll ' ) ; 

clear  all; 

%close  all; 

%  Define  element  parameters 
Ms=400 ; 

Mu=Ms/8; 

Ks=60000*l . 00 ; 

Ku=Ks*5*l .00; 

Mp=58/40;  %  Mass  of  plate  in  kg  with  density  7850  kg/mA3 

7850* (5*12*0.0254*2.5*12*0.0254*0.25*0.0254) 

Kp=4.8e4;  % 

(3*2ell* (2. 5*12*0. 02 54* (0.25*0. 0254) A3/12))/ (2. 5/5*12*0. 02 54) A3 
Kb=0 . 0001*Kp; 

Cu=0 . 003*Ku*l .00; 

Cs=0 . 003*Ks*l .00; 

%  State  equations  for  quarter  car  model 
%  Ms*xsddot  =  +Cs* (xudot-xsdot) +Ks* (xu-xs) 

%  Mu*xuddot  =  +Cu* (xcdot-xudot) +Ku* (xc-xu) -Cs* (xudot-xsdot) -Ks* (xu-xs) 
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%  q  =  [xu  xs  xudot  xsdot] 

Ac= [ 0  0  1  0;0  0  0  1;  -(Ku+Ks)/Mu  Ks/Mu  -(Cu+Cs)/Mu  Cs/Mu;  Ks/Ms  -Ks/Ms 
Cs/Ms  -Cs/Ms]; 

Bc=[0  0;0  0;  Ku/Mu  Cu/Mu;0  0];  %  Inputs  in  displacement  and  velocity  of 
tire  base  over  the  cleat 

Cc=[Ku  0  Cu  0];  %  Force  output  in  tire  for  zero  road  deflection  after 
the  tire  rolls  over  cleat 
Dc=zeros (1,2) ; 


%  Define  mass  and  stiffness  matrices  for  extended  cleat  plate 
Nw=5  ; 

Nl=8  ; 

M=diag (ones (Nw*Nl, 1) *Mp) ; 

K=0*M; 

K (1, 1) =Kp+Kp+Kp; 

K (1, 2) =-Kp;  K (1 , 9) =-Kp;  K(l,10)=-Kp;  K(l,3:8)=0;  K (1, 11 : 40) =0; 

K ( 2 , 2 ) =Kp+Kp+Kp+Kp+Kp ; 

K (2 , 3) =-Kp;  K (2 , 9) =-Kp;  K(2,10)=-Kp;  K(2,ll)=-Kp;  K(2,4:8)=0; 

K (2 , 12 : 40 ) =0 ; 

K ( 3 , 3 ) =Kp+Kp+Kp+Kp+Kp ; 

K ( 3 , 4 ) =-Kp;  K (3, 10) =-Kp;  K(3,ll)=-Kp;  K(3,12)=-Kp;  K(3,5:9)=0; 

K (3, 13 : 40) =0; 

K ( 4 , 4 ) =Kp+Kp+Kp+Kp+Kp ; 

K ( 4 , 5 ) =-Kp;  K ( 4 , 1 1 ) =-Kp;  K ( 4  ,  12 ) =-Kp;  K(4,13)=-Kp;  K(4,6:10)=0; 
K (4, 14 : 40) =0; 

K ( 5 , 5 ) =Kp+Kp+Kp+Kp+Kp ; 

K ( 5 , 6 ) =-Kp;  K ( 5 , 12 ) =-Kp;  K(5,13)=-Kp;  K(5,14)=-Kp;  K(5,7:ll)=0; 
K (5, 15 : 40) =0; 

K ( 6 ,  6 ) =Kp+Kp+Kp+Kp+Kp ; 

K ( 6 , 7 ) =-Kp;  K (6, 13) =-Kp;  K(6,14)=-Kp;  K(6,15)=-Kp;  K(6,8:12)=0; 
K (6, 16 : 40) =0; 

K ( 7 , 7 ) =Kp+Kp+Kp+Kp+Kp ; 

K (7 , 8) =-Kp;  K (7, 14) =-Kp;  K(7,15)=-Kp;  K(7,16)=-Kp;  K(7,9:13)=0; 
K (7, 17 : 40) =0; 

K (8,  8) =Kp+Kp+Kp; 

K (8, 15) =-Kp;  K ( 8 , 1 6 ) =-Kp;  K(8,9:14)=0;  K ( 8 , 17 : 40 ) =0 ; 


K ( 9 , 9 ) =Kp+Kp+Kp+Kp+Kp ; 

K (9, 10) =-Kp;  K (9, 17) =-Kp;  K(9,18)=-Kp;  K (9, 11 : 16) =0;  K(9,19:40)=0; 

K ( 1 0 , 1 0 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (10, 11) =-Kp;  K ( 1 0 , 17) =-Kp;  K (10,  18) =-Kp;  K (10, 19) =-Kp;  K(10,12:16)=0; 
K(10, 20:40) =0; 

K ( 1 1 , 1 1 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (11 , 12 ) =-Kp;  K ( 1 1 , 18) =-Kp ;  K (11, 19) =-Kp;  K (11, 20) =-Kp;  K(ll,13:17)=0; 
K(ll, 21:40) =0; 

K ( 1 2 , 1 2 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (12 , 13) =-Kp;  K (12 , 19) =-Kp;  K (12, 20) =-Kp;  K (12, 21) =-Kp;  K(12,14:18)=0; 
K(12, 22:40) =0; 

K ( 1 3 , 1 3 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (13, 14) =-Kp;  K (13, 20) =-Kp;  K (13, 21) =-Kp;  K (13, 22) =-Kp;  K(13,15:19)=0; 
K  (13, 23 : 40) =0; 

K ( 1 4 , 1 4 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (14 , 15) =-Kp;  K ( 14 , 21 ) =-Kp;  K (14, 22) =-Kp;  K (14, 23) =-Kp;  K(14,16:20)=0; 
K ( 14 , 24 : 40 ) =0 ; 

K ( 1 5 , 15) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (15, 16) =-Kp;  K (15, 22) =-Kp;  K (15, 23) =-Kp;  K (15, 24) =-Kp;  K (15, 17 : 21) =0; 
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K(15, 25:40) =0; 

K ( 1 6 , 1 6 ) =Kp+Kp+Kp+Kp+Kp ; 

K (16, 23) =-Kp;  K (16, 24) =-Kp;  K (16, 17 : 22 ) =0;  K (16, 25 : 40) =0; 

K ( 1 7 , 1 7 ) =Kp+Kp+Kp+Kp+Kp ; 

K (17, 18) =-Kp;  K (17, 25) =-Kp;  K (17, 26) =-Kp;  K ( 17 , 1 9 : 24 ) =0 ;  K (17, 27 : 40) =0; 
K ( 1 8  ,  1 8 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (18, 19) =-Kp;  K (18, 25) =-Kp;  K (18, 26) =-Kp;  K (18, 27) =-Kp;  K ( 1 8 , 20 : 24 ) =0 ; 
K(18, 28:40) =0; 

K ( 1 9 , 1 9 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (19, 20) =-Kp;  K ( 1 9 , 2  6 ) =-Kp;  K (19, 27) =-Kp;  K (19, 28) =-Kp;  K ( 1 9 , 2 1 : 25 ) =0 ; 
K(19, 29:40) =0; 

K ( 2  0 , 2  0 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (20, 21) =-Kp;  K (20 , 27 ) =-Kp;  K (20, 28) =-Kp;  K (20, 29) =-Kp;  K (20 , 22 : 2 6 ) =0 ; 
K(20, 30:40) =0; 

K ( 2 1 , 2 1 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (21, 22) =-Kp;  K (21, 28) =-Kp;  K (21, 29) =-Kp;  K (21, 30) =-Kp;  K (2 1 , 23 : 27 ) =0 ; 
K(21, 31:40) =0; 

K ( 2  2 , 2  2 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (22, 23) =-Kp;  K (22, 29) =-Kp;  K (22 , 30 ) =-Kp;  K (22, 31) =-Kp;  K(22,24:28)=0; 

K (22 , 32 : 40 ) =0 ; 

K ( 2  3 , 2  3 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (23, 24) =-Kp;  K (23, 30) =-Kp;  K (23, 31) =-Kp;  K (23, 32) =-Kp;  K (23 , 25 : 2 9 ) =0 ; 
K(23, 33:40) =0; 

K ( 2  4 , 2  4 ) =Kp+Kp+Kp+Kp+Kp ; 

K (24 , 31 ) =-Kp;  K (24 , 32 ) =-Kp;  K (24 , 25 : 30 ) =0 ;  K (24 , 33 : 40 ) =0 ; 

K ( 2  5 , 2  5 ) =Kp+Kp+Kp+Kp+Kp ; 

K (25, 26) =-Kp;  K (25, 33) =-Kp;  K (25, 34) =-Kp;  K (25, 27 : 32) =0;  K (25, 35 : 40) =0; 
K ( 2  6 , 2  6 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (26, 27) =-Kp;  K (26, 33) =-Kp;  K (26, 34) =-Kp;  K (26, 35) =-Kp;  K (26, 28 : 32) =0; 
K(26, 36:40) =0; 

K ( 2  7 , 2  7 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (27, 28) =-Kp;  K (27 , 34 ) =-Kp;  K (27, 35) =-Kp;  K (27, 36) =-Kp;  K (27, 29 : 33) =0; 
K(27, 37:40) =0; 

K ( 2  8 , 2  8 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (28, 29) =-Kp;  K (28, 35) =-Kp;  K (28, 36) =-Kp;  K (28 , 37 ) =-Kp;  K(28,30:34)=0; 
K(28, 38:40) =0; 

K ( 2  9 , 2  9 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (29, 30) =-Kp;  K (29, 36) =-Kp;  K (29, 37) =-Kp;  K (29, 38) =-Kp;  K(29,31:35)=0; 
K(29, 39:40) =0; 

K ( 3  0 , 3  0 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (30, 31) =-Kp;  K ( 30 , 37 ) =-Kp;  K (30, 38) =-Kp;  K (30, 39) =-Kp;  K(30,32:36)=0; 

K (30, 40) =0; 

K ( 3 1 , 3 1 ) =Kp+Kp+Kp+Kp+Kp+Kp+Kp+Kp ; 

K (31, 32) =-Kp;  K (31, 38) =-Kp;  K (31, 39) =-Kp;  K (31, 40) =-Kp;  K (31, 33 : 37) =0; 

K (32, 32) =Kp+Kp+Kp+Kp+Kp; 

K (32, 39) =-Kp;  K (32, 40) =-Kp;  K(32,33:38)=0; 

K (33, 33) =Kp+Kp+Kp; 

K ( 33 , 34 ) =-Kp;  K(33,35:40)=0; 

K ( 3  4 , 3  4 ) =Kp+Kp+Kp+Kp+Kp ; 

K ( 34 , 35 ) =-Kp;  K(34,36:40)=0; 

K ( 3  5 , 3  5 ) =Kp+Kp+Kp+Kp+Kp ; 

K (35, 36) =-Kp;  K(35,37:40)=0; 

K ( 3  6 , 3  6 ) =Kp+Kp+Kp+Kp+Kp ; 
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K (36, 37) =-Kp;  K (36, 38 : 40) =0; 

K ( 3  7 , 3  7 ) =Kp+Kp+Kp+Kp+Kp ; 

K (37, 38) =-Kp;  K (37, 39 : 40) =0; 

K ( 3  8 , 3  8 ) =Kp+Kp+Kp+Kp+Kp ; 

K (38, 39) =-Kp;  K(38,40)=0; 

K ( 3  9 , 3  9 ) =Kp+Kp+Kp+Kp+Kp ; 

K (39, 40) =-Kp; 

K ( 4  0 , 4  0 ) =Kp+Kp+Kp ; 

%  Complete  symmetry 

temp=K; 

for  ii=l : 40 , 

temp ( ii , ii ) =0 ; 

end 

K=K+temp ' ; 

%  Add  in  elastic  foundation  of  rubber  support 
for  ii=l : 40 , 

K ( i i , i i ) =K ( i i , i i ) +Kb ; 

end 


%  Create  damping  matrix 
C=0 . 003*K; 


%  Create  state  variable 
Ap= [zeros (max (size (K) ) ) 
Bp=zeros (2*max (size (K) )  , 
Bp ( 1 : 2*max (size(K) ) ,1)=[ 
zeros(7,l);  zeros(16,l)] 
Bp ( 1 : 2 *max (size(K) )  ,2)  =  [ 
zeros (6,1);  zeros (16,1)] 
Bp ( 1 : 2*max (size(K) ) ,3)=[ 
zeros(5,l);  zeros(16,l)] 
Bp ( 1 : 2*max (size(K) )  ,  4 )  =  [ 
zeros (4,1);  zeros (16,1)] 
Bp (1 : 2*max (size(K) ) , 5) = [ 
zeros(3,l);  zeros(16,l)] 
Bp ( 1 : 2*max (size(K)),6)=[ 
zeros(2,l);  zeros(16,l)] 
Bp ( 1 : 2 *max (size(K) )  ,7)  =  [ 
zeros (1,1);  zeros (16,1)] 
Bp ( 1 : 2*max (size(K)),8)=[ 
zeros (16,1) ] ; 


matrix  for  extended  cleat  plates 
eye (max (size (K) )) ;  -inv(M)*K  -inv(M)*C]; 
8)  ; 

zeros (max (size (K) ), 1) ;  zeros (16,1);  1; 

;  %  Inputs  along  centerline  of  plate 
zeros (max (size (K) ), 1)  ;  zeros (17,1);  1; 

r 

zeros (max (size (K) ), 1) ;  zeros (18,1);  1; 

r 

zeros (max (size (K) ), 1) ;  zeros (19,1);  1; 

r 

zeros (max (size (K) ), 1) ;  zeros (20,1);  1; 

r 

zeros (max (size (K) ), 1) ;  zeros (21,1);  1; 

r 

zeros (max (size (K) ), 1)  ;  zeros (22,1);  1; 

r 

zeros (max (size (K) ), 1) ;  zeros (23,1);  1; 


%  Bp (1 : 2*max (size (K)  ) 
zeros (7,1);  zeros (24, 
%  Bp (1 : 2*max (size (K) ) 
zeros (6,1);  zeros (24, 
%  Bp (1 : 2*max (size (K) ) 
zeros (5,1);  zeros (24, 
%  Bp (1 : 2*max (size (K) ) 
zeros (4,1);  zeros (24, 
%  Bp ( 1 : 2*max ( size (K) ) 
zeros  (3,1);  zeros (24, 
%  Bp ( 1 : 2*max ( size (K) ) 
zeros  (2,1);  zeros  (24, 


, 1) = [zeros (max (size (K) ), 1) ;  zeros(8,l);  1; 

1)];  %  Inputs  along  line  left  of  center  of  plate 
, 2) = [zeros (max (size (K) ), 1) ;  zeros(9,l);  1; 

1)  ]  ; 

, 3)  =  [zeros (max (size (K) ),  1) ;  zeros(10,l);  1; 

1)  ]  ; 

, 4) = [zeros (max (size (K) ), 1) ;  zeros(ll,l);  1; 

1)  ]  ; 

, 5) = [zeros (max (size (K) ), 1) ;  zeros(12,l);  1; 

1)  ]  ; 

, 6)  =  [zeros (max (size (K) ),  1) ;  zeros(13,l);  1; 

1)  ]  ; 
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%  Bp ( 1 : 2*max ( size (K) ), 7 )  =  [ zeros (max ( size (K) ),  1 ) ;  zeros(14,l);  1; 
zeros (1,1);  zeros (24 , 1 )] ; 

%  Bp ( 1 : 2 *max ( si ze (K) ) , 8 )  =  [ zeros (max ( size (K) )  ,  1 )  ;  zeros(15,l);  1; 
zeros (24,1) ] ; 

O, 

o 

%  Bp ( 1 : 2*max ( size (K) ), 1 )  =  [ zeros (max ( size (K) ),  1 ) ;  1;  zeros(7,l); 
zeros ( 32 , 1 )] ;  %  Inputs  along  line  left  on  left  edge  of  plate 
%  Bp ( 1 : 2 *max ( si ze (K) ) , 2 ) = [ zeros (max ( size (K) ) , 1 ) ;  zeros(l,l);  1; 
zeros (6,1);  zeros ( 32 , 1 )] ; 

%  Bp ( 1 : 2 *max ( size (K) ) , 3 ) = [ zeros (max ( size (K) ) , 1 ) ;  zeros(2,l);  1; 
zeros (5,1);  zeros ( 32 , 1 )] ; 

%  Bp ( 1 : 2 *max ( size (K) ) , 4 ) = [ zeros (max ( size (K) ) , 1 ) ;  zeros(3,l);  1; 
zeros (4,1);  zeros ( 32 , 1 )] ; 

%  Bp ( 1 : 2*max ( size (K) ), 5 )=[ zeros (max ( size (K) ), 1 ) ;  zeros(4,l);  1; 
zeros (3,1);  zeros ( 32 , 1 )] ; 

%  Bp ( 1 : 2*max ( size (K) ), 6 )  =  [ zeros (max ( size (K) ),  1 ) ;  zeros(5,l);  1; 
zeros (2,1);  zeros ( 32 , 1 )] ; 

%  Bp ( 1 : 2 *max ( size (K) ) , 7 ) = [ zeros (max ( size (K) ) , 1 ) ;  zeros(6,l);  1; 
zeros (1,1);  zeros ( 32 , 1 )] ; 

%  Bp ( 1 : 2 *max ( size (K) ) , 8 )  =  [ zeros (max ( size (K) )  ,  1 )  ;  zeros(7,l);  1; 
zeros (32,1)]; 


%  Bp ( 1 : 2 *max ( size (K) ), 1 )=[ zeros (max ( size (K) ), 1 ) ;  zeros(24,l) 
zeros (7,1);  zeros (8,1)];  %  Inputs  along  line  right  of  center 
%  Bp ( 1 : 2 *max ( size (K) ) , 2 ) = [ zeros (max ( size (K) ) , 1 ) ;  zeros(25,l) 
zeros (6,1);  zeros (8,1)]; 

%  Bp ( 1 : 2 *max ( size (K) ) , 3 )  =  [ zeros (max ( size (K) )  ,  1 ) ;  zeros(26,l) 
zeros (5,1);  zeros (8,1)]; 

%  Bp ( 1 : 2*max ( size (K) ), 4 )  =  [ zeros (max ( size (K) ),  1 ) ;  zeros(27,l) 
zeros (4,1);  zeros (8,1)]; 

%  Bp ( 1 : 2*max ( size (K) ), 5 )=[ zeros (max ( size (K) ), 1 ) ;  zeros(28,l) 
zeros (3,1);  zeros (8,1)]; 

%  Bp ( 1 : 2 *max ( size (K) ) , 6 )  =  [ zeros (max ( size (K) )  ,  1 ) ;  zeros(29,l) 
zeros (2,1);  zeros (8,1)]; 

%  Bp ( 1 : 2 *max ( size (K) ) , 7 ) = [ zeros (max ( size (K) ) , 1 ) ;  zeros(30,l) 
zeros (1,1) ;  zeros (8,1)]; 

%  Bp ( 1 : 2 *max ( size (K) ) , 8 ) = [ zeros (max ( size (K) ) , 1 ) ;  zeros(31,l) 
zeros (8,1)]; 

o, 

o 

%  Bp ( 1 : 2 *max ( size (K) ), 1 )  =  [ zeros (max ( size (K) ),  1 )  ;  zeros(32,l) 
zeros (7,1)];  %  Inputs  along  line  on  right  edge  of  plate 
%  Bp ( 1 : 2 *max ( size (K) ) , 2 )  =  [ zeros (max ( size (K) )  ,  1 ) ;  zeros(33,l) 
zeros (6,1)]; 

%  Bp ( 1 : 2*max ( size (K) ), 3 )  =  [ zeros (max ( size (K) ),  1 )  ;  zeros(34,l) 
zeros (5,1)]; 

%  Bp ( 1 : 2*max ( size (K) ), 4 )=[ zeros (max ( size (K) ), 1 ) ;  zeros(35,l) 
zeros (4,1)]; 

%  Bp ( 1 : 2 *max ( size (K) ) , 5 )  =  [ zeros (max ( size (K) )  ,  1 ) ;  zeros(36,l) 
zeros (3,1) ] ; 

%  Bp ( 1 : 2 *max ( size (K) ) , 6 )  =  [ zeros (max ( size (K) )  ,  1 )  ;  zeros(37,l) 
zeros (2,1)]; 

%  Bp ( 1 : 2 *max ( size (K) ) , 7 ) = [ zeros (max ( size (K) ) , 1 ) ;  zeros(38,l) 
zeros (1,1)]; 

%  Bp ( 1 : 2*max ( size (K) ), 8 )  =  [ zeros (max ( size (K) ),  1 ) ;  zeros(39,l) 


1; 

of  plate 
1; 

1; 

1; 

1; 

1; 

1; 

1; 

1; 

1; 

1; 

1; 

1; 

1; 

1; 

1]  ; 


Bp (41:80,  : ) =inv (M) * Bp  (41:80,  :); 
Cp= [eye (2*max (size (K) ) ) ] ; 
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Dp=zeros (2*max (size (K) )  ,  8)  ; 

%  Generate  frequency  response  functions 
w=0 : 1 : 400 ; 

for  ii=l :max (size (w) ) , 

H ( :  ,  :,ii)=-w(ii) A2*inv (K-M*w (ii) A2+j*w(ii) *C) ; 

end 

%  Plot  frequency  response  functions 
figure  ( 1 ) ; 
subplot  (311)  ; 

semi logy (w/2/pi,abs (squeeze (H  (4, 17:19,  :) ) ) /9.81) ; 

xlabel (' Frequency  [Hz]'); 

ylabel('Mag.  H_{p,4}  [g/N]'); 

axis([0  60  5e-4  5e-2]); 

subplot (312) ; 

semi logy (w/2/pi,abs ( squeeze (H ( 4 , 20:21,  :) ) ) /9.81) ; 

xlabel (' Frequency  [Hz]'); 

ylabel('Mag.  H_{p,4}  [g/N]'); 

axis([0  60  5e-4  5e-2]); 

subplot (313) ; 

semi logy (w/2/pi,abs ( squeeze (H ( 4 , 22:24,  :) ) ) /9.81) ; 
xlabel (' Frequency  [Hz]'); 
ylabel('Mag.  H_{p,4}  [g/N]  ' )  ; 

axis([0  60  5e-4  5e-2]); 

figure  (2 ) ; 
subplot  (311)  ; 

semi logy (w/2/pi,abs (squeeze (H(4, 17:19,  :)))/9. 81,  '--');  hold  on; 

semilogy (w/2/pi, abs (squeeze (H (4, 33 : 35, : ) ) ) /9 . 81) ;  hold  off 

xlabel ( ' Frequency  [Hz ] ' ) ; 

ylabel('Mag.  H_{p,4}  [g/N]  ' )  ; 

axis([0  60  5e-4  5e-2]); 

subplot (312) ; 

semilogy  (w/2/pi,abs  ( squeeze  (H  ( 4 , 20:21,  •.)))/  9 . 81,  '--');  hold  on; 

semilogy (w/2/pi, abs (squeeze (H (4, 36 : 37, :))) /9 . 81) ;  hold  off 

xlabel (' Frequency  [Hz]'); 

ylabel('Mag.  H_{p,4}  [g/N]'); 

axis([0  60  5e-4  5e-2]); 

subplot (313) ; 

semilogy (w/2/pi,abs ( squeeze (H ( 4 , 22:24,  : ) ) ) / 9 . 81,  '--');  hold  on; 
semilogy (w/2/pi, abs (squeeze (H (4, 38 : 40,  :))) /9 . 81)  ;  hold  off; 
xlabel ( ' Frequency  [Hz ] ' ) ; 
ylabel('Mag.  H_{p,4}  [g/N]  ' )  ; 

axis([0  60  5e-4  5e-2]); 

%  Calculate  natural  frequencies 

[v, d] =eig ( ( -inv (M) *K) )  ; 
wn=imag ( sqrt (diag (d) ) ) /2 /pi ; 

%  Establish  static  geometrty  for  plate 

x= [0123456701234567012345670123456701 
234567]; 

y= [ zeros ( 1 ,  8 )  ones(l,8)  ones(l,8)*2  ones(l,8)*3  ones  ( 1 , 8 ) *4 ] ; 
z=zeros (1,40) ; 


136 


Douglas  Adams 


TCN  10009 


10/7/2011 


%  Plot  mode  shape  for  plate 
figure  ( 3 ) ; 

plot3 (x, y, z, ' . ' ) ;  hold  on; 

plot3(x(l:8) , y ( 1 : 8 ) , z ( 1 : 8 ) , ' b  , x ( 9 : 1 6 ) , y ( 9 : 1 6 ) , z ( 9 : 1 6 ) , '  b  , x ( 17 : 24 ) , y ( 1 
7:24) , z (17 : 24 ) ,  'b',x(25:32) ,y(25:32) ,z(25:32) ,  ' b ' ,x(33:40) ,y(33:40) , z  (3 
3:40) , 'b') ; 

plot3 (x ( [ 1  9  17  25  33 ] )  ,  y ( [ 1  9  17  25  33]),z([l  9  17  25  33 ] )  ,  ' b 1 , x ( [ 1  9 
17  25  33 ] +1 ) , y ( [ 1  9  17  25  33]+l),z([l  9  17  25  33 ] +1 ) , ' b ' , x ( [ 1  9  17  25 
33 ] +2 ) , y ( [ 1  9  17  25  33]+2),z([l  9  17  25  33] +2 ) , ' b ' , x ( [1  9  17  25 

33 ] +3 ) , y ( [ 1  9  17  25  33]+3),z([l  9  17  25  33 ] +3 ) , ' b ' , x ( [ 1  9  17  25 

33 ] +4 ) , y ( [ 1  9  17  25  33]+4),z([l  9  17  25  33] +4 ) , ' b ' , x ( [1  9  17  25 

33 ] +5 ) , y ( [ 1  9  17  25  33]+5),z([l  9  17  25  33 ] +5 )  ,  ' b '  ,  x ( [ 1  9  17  25 

33 ] +6 ) , y ( [ 1  9  17  25  33]+6),z([l  9  17  25  33 ] +6 ) , ' b ' , x ( [ 1  9  17  25 

33 ] +7 )  ,  y ( [ 1  9  17  25  33]+7),z([l  9  17  25  33] +7) , ' b ' ) ; 

%shp=imag (squeeze (H (4,  : , round (17*2*pi/w(2) ) ) ) )  ; 
shp=v ( : , 36) /max ( (v ( :  ,  36) ) )  ; 
shp=shp ' ; 

plot3 (x, y, z+shp, ' . ' ) ;  hold  on; 

plot3(x(l:8) , y ( 1 : 8 ) ,z(l:8)+shp(l:8) , ' r ' , x ( 9 : 1 6 ) , y ( 9 : 1 6 ) ,z(9:16)+shp(9:l 

6) , 'r',x(17:24) , y ( 17 : 24 ) ,z(17:24)+shp (17:24) , 'r',x(25:32) ,y(25:32) , z (25 

:32)+shp (25:32)  ,  'r',x(33:40) ,y(33:40) , z (33:40) +shp (33:40) ,  ' r ' )  ; 

plot3 (x ( [ 1  9  17  25  33 ] ) , y ( [ 1  9  17  25  33]),z([l  9  17  25  33])+shp([l  9  17 

25  33]),  ' r ' , x  (  [  1  9  17  25  33] +1 ) , y ( [ 1  9  17  25  33]+l),z([l  9  17  25 

33] +1) +shp ( [1  9  17  25  33 ] +1 )  ,  ' r ' , x ( [ 1  9  17  25  33]+2),y([l  9  17  25 

33 ] +2 ) , z ( [ 1  9  17  25  33 ] +2 ) +shp ( [ 1  9  17  25  33 ] +2 ) , ' r ' , x ( [ 1  9  17  25 

33 ] +3 ) , y ( [ 1  9  17  25  33]+3),z([l  9  17  25  33 ] +3 ) +shp  (  [  1  9  17  25 

33] +3),  ' r ' , x (  [  1  9  17  25  33]+4),y([l  9  17  25  33]+4),z([l  9  17  25 

33] +4) +shp ( [1  9  17  25  33] +4 ) , ' r ' , x (  [1  9  17  25  33]+5),y([l  9  17  25 

33 ] +5 ) , z  (  [  1  9  17  25  33 ] +5 ) +shp ( [ 1  9  17  25  33 ] +5 ) ,  r  , x ( [ 1  9  17  25 

33 ] +6 ) , y ( [ 1  9  17  25  33]+6),z([l  9  17  25  33 ] +6 ) +shp ( [ 1  9  17  25 

33 ] +6 ) ,  ' r ' , x  (  [ 1  9  17  25  33]+7),y([l  9  17  25  33]+7),z([l  9  17  25 

33] +7) +shp ( [1  9  17  25  33]+7),'r'); 

xlabel ( ' Length ' ) ; 

ylabel ( ' Width ' ) ; 

zlabel ( ' Deflection ' )  ; 


%  Setup  time  domain  simulation 
Fs=1000* (max (wn) /2/pi) ; 
wc=9/12;  %  width  of  cleat  (feet) 
hc=3*2 . 54e-2 ;  %  height  (meters) 
wp=5;  %  length  of  plate  (feet) 
vs=5*52 80*1/3600;  %  feet/ sec 
Tc=wc/vs;  %  time  on  cleat 
Tp=wp/vs;  %  time  on  plate 
Nc=round (Tc/ (1/Fs)  )  ; 

Np=round (Tp/ (1/Fs) ) ; 

Nt=Np+Nc; 

tc=0 : 1/Fs : (Nc-1) /Fs; 
tp=0 : 1/Fs : (Np-1) /Fs; 
uc=hc* (1-cos (2*pi*tc/Tc) ) ; 
vc=hc* (2*pi/Tc*sin (2*pi*tc/Tc) ) ; 
t=0 : 1/Fs : (Nt-1) /Fs; 


delta=max (size (t) ) -max (size (tc) )  ; 

%  Run  simulation  with  quarter  car  on  cleat 
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yc=lsim (ss (Ac, Be, Cc, Dc) ,  [uc '  vc 1 ;  zeros (delta,  2 )],  t)  ; 
yp=yc (Nc+1 :Nt) ; 

%  Split  force  from  tire  into  8  segments  to  apply  to 
%  lumped  parameter  degrees  of  freedom 
dTp=Tp/8 ; 

dNp=round (dTp/t  (2 ) ) 

%w=hanning (dNp) ; 
w=ones (dNp, 1 ) ; 

%w2=hanning (dNp-3) ; 
w2=ones (dNp-3, 1) ; 
ul7=zeros (Np, 1) ; 
ul7 (1 :dNp, 1) =yp (1 :dNp) . *w; 
ul8=zeros (Np, 1) ; 

ul8 ( 1+dNp : 2* dNp, 1 ) =yp (dNp+1 : 2* dNp) . *w; 
ul9=zeros (Np, 1) ; 

ul9 (l+2*dNp: 3*dNp, 1) =yp (2*dNp+l : 3*dNp)  .  *w; 
u20=zeros (Np, 1) ; 

u20 (l+3*dNp: 4*dNp, 1) =yp (3*dNp+l : 4*dNp) . *w; 
u21=zeros (Np, 1) ; 

u21 (l  +  4*dNp: 5*dNp, 1) =yp (4*dNp+l : 5*dNp)  .  *w; 
u22=zeros (Np, 1) ; 

u22 (l+5*dNp: 6*dNp, 1) =yp (5*dNp+l : 6*dNp) . *w; 
u23=zeros (Np, 1) ; 

u23 (l+6*dNp: 7*dNp, 1) =yp (6*dNp+l : 7*dNp)  .  *w; 
u24=zeros (Np, 1) ; 

u2  4 (l+7*dNp: 8* dNp- 3, 1) =yp (7*dNp+l : 8* dNp- 3)  .  *w2; 
figure ( 4 ) ; 

plot(tp, [ul7  ul8  ul9  u20  u21  u22  u23  u24]);  hold  on; 
plot (tp, [yp] , ' k-- ' ) ;  hold  off ; 
xlabel('Time  [sec]'); 
ylabel ( ' Force  [N] ' ) ; 

figure  ( 5 ) ; 

semi logy (0 : 1/tp (max (size  (tp) ) )  :  ( (max (size (tp) ) - 

1) /tp (max (size (tp) ))), abs (fft ( [ul7  ul8  ul9  u20  u21  u22  u23 

u24] ) ) /max (size (tp) ) *2) ;  hold  on; 

semi logy (0 : 1/tp (max (size (tp) ) ) : ( (max (size (tp) ) - 

1)  /tp (max (size (tp) ) ) ) , abs (fft ( [yp] ) ) /max (size (tp) ) *2, ' k-- ' ) ;  hold  off ; 
xlabel('Freq  [Hz]'); 

ylabel ( ' Force  [N] ' ) ; 

%  Run  simulation  with  quarter  car  on  plate 

y=lsim (ss (Ap, Bp, Cp, Dp) , [ul7  ul8  ul9  u20  u21  u22  u23  u24],tp); 
figure  ( 6 ) ; 

plot(tp,y(:,4) , tp, yp/1000, tp (1 :max (size (y) ) - 

2)  , dif f (dif f (y ( : , 4 ) ) )/tp(2)/tp(2)/9.81,  - - ' )  ; 
legend ( ' x  4  , ' force  in  tire ' , ' a  4 ' ) ; 
xlabel('Time  [sec]'); 

ylabel (' Displ  [m] ,  Accel  [g] ,  Force  [N] ' ) ; 

figure ( 7 ) ; 
subplot (211) ; 

plot(0:l/tp (max (size (tp) ) ) : ( (max (size (tp) ) - 

1) /tp (max (size(tp) ) ) ) , abs (fft ( yp/1000) ) /max (size (yp) ) *2,  ' c ' )  ;  hold  on; 
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%legend ( ' x  4  '  ,  ' force  in  tire ' ,  ' a  4  '  )  ; 

xlabel('Freq  [Hz]'); 

ylabel ( ' Force  [N] ' ) ; 

axis  (  [ 0  60  0  8 ] )  ; 

subplot  (212)  ; 

plot(0:l/tp (max (size (tp (1 :max  (size  (y)  ) - 
2) ) ) ) : ( (max (size (tp (1 :max (size(y))-2)))- 

1)  /tp (max (size (tp (1 :max  (size  (y)  )  - 

2)  ) ) ) )  ,  abs(fft(diff(diff(y(:,4) ) )/tp(2)/tp(2)/9.81) ) /max (size(yp))*2,'c 
' ) ;  hold  on; 

xlabel ( ' Freq  [Hz]  ' ) ; 
ylabel ( 'Accel  [g] ' ) ; 
axis  (  [ 0  60  0  8 ] )  ; 

%plot (0 : 1/tp (max (size (tp) ) ) : ( (max (size (tp) ) - 

1) /tp (max (size(tp) ) ) ) ,abs(fft(y(:,4) ) ) , 0 : 1/tp (max (size (tp) ) ) : ( (max (size 
(tp) )  - 

1) /tp (max (size(tp) ) ) ) ,abs(fft(yp/1000) ) , 0 : 1/tp (max (size (tp (1 :max (size (y 
)  )  -2)  )  )  )  :  (  (max  (size  (tp  (1  :max  (size  (y)  )  -2)  )  )  - 

1)  /  tp (max (size (tp (1 :max (size (y) ) - 

2)  ) ) ) ) , abs ( f f t (dif f (diff (y(:,4) ) ) / tp ( 2 ) /tp(2) /9.81) ) , ) ; 

f=0 : 1/tp (max (size (tp (1 :max (size(y))-2)))):( (max (size (tp (1 :max (size (y) ) - 
2) ) ) -1) /tp (max (size (tp (1 :max (size(y) )-2)  )  )  )  )  ; 


figure  ( 8 ) ; 

plot(0:l/tp (max (size (tp (1 :max  (size  (y)  )  - 
2) ) ) ) : ( (max (size (tp (1 :max (size(y))-2)))- 

1)  /tp (max (size (tp (1 :max  (size  (y)  )  - 

2)  ) ) ) )  ,abs (fft(diff (diff (y(:,4) ) ) /tp (2) /tp (2) / 9 . 81) ) /max (size(yp))*2,'k 
' ) ;  hold  on; 

xlabel ('Freq  [Hz]'); 
ylabel ( 'Accel  [g] ' ) ; 
axis  (  [0  2  0  0  8] )  ; 


%  Calculate  fault  indices 

SP=abs (fft (diff (diff (y( : , 4) ) ) /tp (2) /tp (2) / 9 . 81) ) /max (size (yp) ) *2; 
fs=l;  %  0  Hz 
fe=12 ;  %  16.1  Hz 


sum (abs (SP (f s : fe) ) ) 


indx= [36.1209  33.2444  32.4544 
41.0779  37.6804  36.7044 
39.4749  36.3807  35.4099 
37.9682  34.8426  34.0394 
47.7581  43.3696  43.4246 


39.4622 
44 . 8242 
42 .8990 
41 . 6106 
52 . 9929 


41 . 6257; 
47.2310; 
45.0970; 
43.9602; 
56.3130] ; 


figure ( 9 ) ; 

plot ( indx ' - [ indx ( 1 ,  : )  ;  indx ( 1 ,  : )  ;  indx ( 1 ,  : )  ;  indx ( 1 ,  : ) ;  indx ( 1 ,  : ) ]  '  ,  ' - 

x '  )  ; 

xlabel (' Crossing  location'); 

ylabel (' Spectral  energy  from  0-16  Hz ' )  ; 
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Technical  Need 


■  Supportability  of  ground  vehicles: 

-  3/5th  of  the  DoD  budget  for  O&S  (Gorsich,  2007). 

-  Maintenance  based  on  reliability  of  a  population. 

-  Run  to  failure  (find  and  fix) 

-  Preventative  (service  when  convenient) 
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Technical  Issues 


■  Condition  monitoring  of  vehicles: 

-  Widely  varying  terrains  introduce  variability  that 
makes  condition  assessment  difficult. 

-  Curse  of  dimensionality:  M  terrains  with  N  sensors 
yields  MN  datasets  (Bishop,  1990),  e.g.,  6  sensors, 
10  terrains,  1e6  datasets,  11  years  at  240  sets/day. 


Mechanical 

properties 
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Fault 


No 

Fault 

Found 


Cost 

■  Cost  of  on-board  measurement  systems: 

-  HMMWV 

-140,000  U.S.  Army 
-35,000  U.S.  Marine  Corps 

-  Ground  vehicles  are  a  fraction  of  the  cost  of 
aircraft,  so  cost  per  vehicle  must  be  lower. 
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Technical  Solution 


■  To  address  the  issue  of  variability  in 
terrain,  the  condition  monitoring  system 
must  somehow  control  the  input  loading. 

■  To  address  the  issue  of  cost  per  vehicle, 
the  technical  solution  must  somehow 
distribute  the  cost  of  the  condition  monitoring 
system  over  the  fleet  of  vehicles. 
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Instrumented  Diagnostic  Cleat 


■  The  instrumented  diagnostic  cleat  is  a  completely  off 
board  system  that  measures  the  response  of  the  vehicle 
after  it  passes  over  the  cleat. 

■  Faults  can  be  identified  (detected,  located,  quantified)  by 
(a)  comparing  the  measured  response  to  a  reference 
signature  or  (b)  detecting  asymmetries  in  the  response. 


Vehicles  awaiting  Vehicle  undergoing 

w  w  w 

diagnosis  semi-active  cleat  diagnosis 
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Instrumented  Cleat  Test 


Test  Procedure: 


■  A  vehicle  is  driven  over  the  instrumented  cleat  at  ~5  mph. 

■  Acceleration  data  from  the  instrumented  plates  is  acquired. 

■  Data  is  analyzed  to  detect,  locate,  and  quantify  faults. 
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Excitation 
Bumps 
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Instrumented 
Metal  Plates 


Fault  Tests:  Tire  Pressure 


Test  Procedure: 

■  Nominal  tire  pressures  in  all  tires  except  passenger  front. 
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Accelerometer  4  (Z-direction) 


Identifying  Faults:  Method  #1 


Fault  Index  for  Reference-Based  Method: 

■  Simple  fault  index  was  calculated  using  the 
area  under  the  Discrete  Fourier  Transform 
magnitude  curve: 


Fault 

index 


n=b 


XII  DFT(n)  A/ 


n  =  a 


■  This  approach  is  not  as  sensitive  nor  robust 
as  other  possible  algorithms. 
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Fault  IndexflScaled  DFT(20-40  Hz)|) 
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Tire  Pressure:  Quantify 


Accelerometer  4  (Z-dir)  -  Front  Wheel  Excitation 
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Fault  IndexflScaled  DFT(5-35  Hz)|) 


Suspension  Fault:  Locate 


Accelerometer  1  (Y-dir)  -  Front  Wheel  Excitation  Accelerometer  1  (Y-dir)  -  Rear  Wheel  Excitation 


Detected  with  90%  confidence 
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Variability 

■  Work  has  focused  on  identifying  and  compensating  for 
sources  of  variability  in  the  diagnostic  cleat  measurement. 

■  Primary  sources  of  variability  that  were  investigated  included 

■  Driver  factors: 

■  Vehicle  approach  speed. 

■  Vehicle  crossing  location. 

■  Vehicle  angle  of  approach. 

■  Environmental  factors. 
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Compensating  for  Speed 

■  Speed  errors  were  reduced  by  estimating  the  speed  (using 
wheelbase  /  time  between  wheel  crossings)  and  modifying 
fault  index  as  a  function  of  the  calibration  shown  below. 


Accelerometer  4  (Z-direction) 
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Crossing  Location 


■  Errors  due  to  crossing  location  were  reduced  by  placing  the 
instrumented  plates  such  that  the  wheels  tend  to  cross  on  the 
outer  half  of  the  plates  to  avoid  the  possibility  of  the  wheels 
being  on  either  side  of  the  center  node  line  of  the  plate. 


L3,  =  V A 2  +  C2k 
L\k  =  ^B2  +  C\ 
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Analytical  Model 

■  An  analytical  model  was  also  developed  and  used  to  verify 
the  experimental  findings. 
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Identifying  Faults:  Method  #2 


Fault  Index  for  Reference-Free  Method: 


■  Fault  index  was  calculated  based  on  the 
cross  correlation  function  between  Z  and  Y 
measurements  on  opposite  wheels: 


Fault 

index 


RmsIrj »] 


where  Rzy  (r)  =  E  [z(7)j (7  +  r)] 

■  This  approach  eliminates  the  need  for  a 
historical  baseline  by  detecting  “limping.” 


purdu: 

Center  foi 


r  Systems  Integrity 


Method  #2 
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Overview  of  Demo 


■  Commercial  HI  used  for  demonstration: 

■  Tire  faults  introduced  by  adjusting  pressure  (next  slide). 

■  Suspension  faults  introduced  by  adjusting  passively 
tunable  dampers  (next  slide). 

■  5  mph  and  10  mph  to  demonstrate  compensation  for  speed. 

■  Aluminum  plates  utilized  for  lighter  weight  to  increase 
portability  of  the  diagnostic  cleat,  along  with  1000  mV/g 
triaxial  accelerometers  and  National  Instruments  data 
acquisition  system  and  custom  software. 
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Tire  and  Suspension  Faults 


■  HI  is  fitted  with  tunable  dampers  with  9  settings  from  0  to  8. 


■  HI  equipped  with  central  tire  inflation  system  that  is  used  to 
inflate  and  deflate  tires  to  desired  pressure. 
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Vehicle  Properties 


Two-post  shaker  testing 
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